Sure. Replace my first line with:

my @data;
foreach (my $i = 0; $i < @Arr1 && $i < @Arr2; $i++) {
    $data[$i] = [$Arr1[$i], $Arr2[$i]];
}
[download]