Select Code to Download

 #!/usr/bin/perl -w
for (my $x1 = 0; $x1 <= $#RAM1; $x1++) {
   for (my $y1 = 0; $y1 <= $#{$RAM1[$x1]}; $y1++) {
...

  }
}

foreach $item (@pos) {
unless ($seen{$item}) {
...
push (@uniq, $item);
}
}