print "@newtest",$/; #### for my $day (@newtest) { print $day, $/; }