Select Code to Download

  my @a = (
    [2,5,10,5,12,6,21,5,10,12,23],
...
  /xg) {
    print "($1)\n" unless $seen{$1}++;
  }