foreach my $line (@lines) {
    my $key = shift @$line;
    if (exists($hash{$key})) {
        push @{$hash{$key}}, @$line;
    }
}