Re^2: creating a hash from a text file.

[AnomalousMonk]

Loop condition
    while ($line =~ /(\d+)\s+(\w+)/) { ... }
will produce infinite loop. Use /g regex modifier to extract all pairs:
    while ($line =~ /(\d+)\s+(\w+)/g) { ... }