use strict;
use warnings FATAL => "shadow";
use feature 'say';
#use diagnostics;


# - mine @sheep = (1,2,3);
my @sheep;
my $sheep = \@sheep;
@sheep = (1,2,3);
#  ---

for my $sheep (@sheep) { say $sheep };

say @$sheep;

##</code><code>##

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