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