Select Code to Download

#!/usr/bin/perl -w
my @list=(4,3,2,5,1);
...
print "@list\n";
# prints:
# 8 6 4 10 2 45 6 24 43 9 4 3 2 5 1