push @{$theTable{$key}},  [ @parts ]; Ya, that's exactly what I needed. Thanks.

And also for the while ($line = <FILE>) Silly mistake...