Select Code to Download

use strict;
use warnings FATAL => "shadow";
use feature 'say';
...
for my $sheep (@sheep) { say $sheep };

say @$sheep;

perl /home/lanx/perl/pm/sheep.pl
1
2
3
123