Select Code to Download

my $input = 'somelist';

...

print "\n";
print "The names, backwards, are:\n", @rocks;