Select Code to Download

use warnings;
use strict;
...
bar,x
quz,5
a,b,c,42

while (<DATA>) {
    chomp;
...
         { $hash{$1} = looks_like_number($2) ? $2 : 1 }
    else { $hash{$_} = 1 }
}