my($str) = "abcdefgh";
my($str_rev);

print "before $str\n";
$str_rev = reverse($str);
print "after $str_rev \n";