>>120
俺のarrayのeachはイメージはこうゆう感じだったんだがｗ
{
my %memory;
sub each_array(\@;\@\@\@\@\@){

my @array_rfs = @_;
(exists $memory{"@array_rfs"}) ? ($memory{"@array_rfs"}++) : ($memory{"@array_rfs"} = 0);

my @return = map { $_->[$memory{"@array_rfs"}] } @array_rfs;

my @sort = sort { @{$b} <=> @{$a} } @array_rfs;
(@{$sort[0]} - 1) < $memory{"@array_rfs"} and (delete $memory{"@array_rfs"} and return());

return(@return);

}
}