use strict; use warnings; #### my @line = <$fh>