Select Code to Download

@ary = (
  [1,2],
...
  [3,3]
  #other data
)

#!/usr/bin/perl

...

print join "\n", map { "@$_" } @result;
print "\n";