my $i;

my $str="hello";

my @str=split('',$str);

for($i=$#str;$i>=0;$i--)

{

print $str[$i];

}