Select Code to Download

my %hash;
my @rec;
push @{ $hash{ $rec[0] } }, [ $rec[ 1 ], $rec[ 2 ] ]
    while @rec = split '(?<=-[a-z])', <>;

my %hash;
my @rec;
...
@rec = unpack( 'a10a10a4', $_ ),
    push @{ $hash{ $rec[0] } }, [ @rec[ 1, 2 ] ]
    while <>;