push @{$theTable{$key}},  [ @parts ];

##</code><code>##

while ($line = <FILE>)