Hi,

By the pipe separator it looks like you are retrieving the data from a MySQL or other database. Is that the case? If so you can populate your hash of arrays while you are fetching the results from the DB.

while ( my $row = $sth->fetchrow_arrayref ) {
    push( @{ $hash{$row->[0]} }, $row->[1] );
}
[download]

Hope this helps!