while () { my $line = $_; chomp $line; my @words = $line; } while () { my $line2 = $_; chomp $line2; my @words2 = $line2; }