$rows{$fields[2]} = [ ($fields[3]..$fields[-1]) ];
Depending on what the fourth and last elements in @fields contain, that range can be very, very long...
I think this is what you mean:
$rows{$fields[2]} = [ @fields[3..$#fields] ];
-- Gunnar Hjalmarsson Email: http://www.gunnar.cc/cgi-bin/contact.pl
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>