foreach my $pair ( pairs /(\d+)\s+(\S+)/mg ) {
       my ( $key, $value ) = @$pair;
       ...
    }

##</code><code>##

    $h{ $1 } = $2
        while /(\d+)\s+(\S+)/mg;