my $val = reverse "dog"

print "val :$val:\n";