#!/usr/bin/perl -w
use strict;
sub Mix;
my @Row1=(1,3,5,7);
my @Row2=(2,4,6);
my @Row3=(9,9,9);
my @Row4=Mix(\@Row1,\@Row2,\@Row3);
print "@Row4\n";
sub Mix {
   my @Result;
   for (0..scalar @{(sort {$#{$b} <=> $#{$a}} @_)[0]}) {
       foreach my $a (@_) {
           push(@Result,@$a[$_]) if ($_ <= $#{$a});
       }
   }
   @Result;
}
[download]