my @file = <$fh>;

foreach $row (@file){
    ...