Shell Programming and Scripting

$string = "abcdef";
@array = split(//, $string);
$length =length @array

for ( i=1;i< $length+1;i++)
{
   print "$_\n";

}

use strict;
use warnings;

$length = length (@array);

$length = length ($string);

$length = $#array;

for ( my $i=1;$i< $length+1;$i++)

for ( my $i=0;$i< $length;$i++)

for (my $i= $length;$i >=0 ;$i--) {
    print "$array[$i]\n";
}

reverse (@array)

 
use strict;
use warnings;
use Data::Dumper;

my $str="welcome";
my @array;
 @array=split(//,$str);
 @array=reverse(@array);
print Dumper \@array;

use strict;
use warnings;
my $str="welcome";
print reverse unpack("A1" x length($str),$str);

print scalar reverse $string;

% perl -E'say~~reverse"abc"'
cba