use strict;
use warnings;

my $foo= [ 1, 2, 3 ];
for (@$foo) {
  say $_
}