Select Code to Download

#!/usr/local/bin/perl
CHECK
...
push @{$a}, 2;
push $a, 4;   # alter this to do @$a
print join(', ',@a) . "\n";