use v5.14;
use Data::Dumper;
my @list = 1..3;

for (@list)
{
  print while (<DATA>);
}

say Dumper \@list;
__DATA__