while ($line =~ /(\d+)\s+(\w+)/g) {
    $hash{$1} = $2;
}