while ( $line = <$fh> ) {
    chomp $line;
    @r = split " ", $line;
    .....