http://www.perlmonks.org?node_id=1064068


in reply to Array comparison doesn't work

You double-posted this (Reaped: Array comparison doesn't work). Remember it can take a few minutes for a post to be approved.

As for your problem, arrays flatten when passed as parameters. You should be passing array references instead, to maintain the original containers.

Please see perlsub for details. No point re-stating everything it says unless there's some aspect of that POD that needs clarification. But in brief:

sub flattened { my( @a, @b ) = @_; return @a; # Returns everything. } sub preserved { my( $a_aref, $b_aref ) = @_; return @$a_aref; # Returns only the stuff contained in @$a_aref. } my @this = qw( 1 2 3 ); my @that = qw( 4 5 6 ); print "$_\n" for flattened( @this, @that ); # prints 1 2 3 4 5 6. print "$_\n" for preserved( \@this, \@that ); # prints 1 2 3.

Dave