while(@fi[0] eq'')
{
     $nextline = readline<IN>;
     //remove whitespace
     //split the line, but I think I included my accidentally so that I had

     my @fi = split.....
}