my $x = reverse('abcdef');
my ($y) = reverse('abcdef');
print "x=$x\ny=$y\n";