while(my $line = <$fh>){
         #insert data
        }