Select Code to Download

#!/usr/bin/perl - w

...

my @list = qw (first    second    third    fourth    fifth    sixth   
+ seventh    eigth    ninth    tenth);
print join ' ', reverse (@list);

#!/usr/bin/perl - w

...
my @list = qw (first    second    third    fourth    fifth    sixth   
+ seventh    eigth    ninth    tenth);
my @reverse = reverse (@list);
print "@reverse";