my $marksFile = q{marks.txt}; open my $marksFH, q{<}, $marksFile or die qq{open: $marksFile: $!\n}; { my $header = <$marksFH>; } while ( my $line = <$marksFH> ) { chomp $line; ... }