Help for this page
my @front, @back; while( @array1 ) { ... } } my @array2 = (@front, @back);
push @{exists $skip{$_->[0]} ? \@back : \@front}, $_;