Help for this page
my %hash = map { chomp; split /,/ } <DATA>; print $hash{1006},$/; ... 1007,foo 1008,bar
__DATA__ 0001,choochoo 0002,candycane 0003,sockpuppet 0109,choochoo