while ( <$input_fh> ) {
    my @tokens = split;

    ...