...
   my @fin = grep {$_} split /\n/, <FIN>;