my %hash;
while( <> ) {
    my( $k, @v ) = unpack( 'a10a10a4', $_ );
    push @{ $hash{ $k } }, \@v
}