Select Code to Download

my @array = (
    [ "a", "b", "c", ],
...
    ); 

a1x, a1y, a2x, a2y, a3x, a3y, a4x, a4y, b1x, b1y, b2x, b2y, b3x, b3y, 
+b4x, b4y, c1x, c1y, c2x, c2y, c3x, c3y, c4x, c4y

my @as = @{ $array[0] };
foreach my $a (@as) {
...
        }
    }
}