WAP to reverse the string.

#!/depot/perl-5.8.3/bin/perl

my @line=qw (Hii welcome to Perl.);
@arr1=reverse (@line);
print "@arr1 \n";

OUTPUT:

Perl. to welcome Hii