Select Code to Download

while ( <DATA> ) {
    my ( $key, $val ) = /^(\d+)\s+(\w+)/;
    $val = lc($val);
    $dict{ $val } = $key;
    }

my %dict;
while ( <DATA> ) {
...
1       cross
2       reference
3       cross