Select Code to Download

#!/usr/bin/perl -w

...
  }
  print"\n";
}

map{ push @list, @$_ }@array;
print "@list";