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

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

print @newarray;