my $line = <$INPUT_FH>;
$line = <$INPUT_FH>;
while ($line = <$INPUT_FH>) {
    # process file
}