Select Code to Download

#! perl
use strict;
...
my @a = qw(1 2 3);

say for @a;

 0:16 >perl 1151_SoPW.pl
1
...
3

 0:16 >