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