my $string = 'Hallo Welt';
$string = reverse $string;
print $string,"\n";

my @array = (1 .. 10);
print join " ", reverse @array;