while( my $var = <$FH> ) {