my @array = (1,2,3,4,5);
foreach my $line (@array) {
  my @newarray;
  push (@newarray, $line);
  print @newarray;
}


##</code><code>##

my @array = (1,2,3,4,5);
my @newarray;

foreach my $line (@array) {
  push (@newarray, $line);
}

print @newarray;