I would suggest to write in this way : my @res = (); foreach( @ARGV ) { open IN, $_ or die "Couldn't open $_: $!\n"; my @data = <IN>; close IN;
s/\s+//g for @data; @res = ( @res, @data );
You are copying the @res array. It would be more efficient using push.
push @res, @data;
John -- use Perl; program fulfillment
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>