Select Code to Download

{
  my $old = select $fh;
...
  print for @very_big_redundant_array;
  select $old;
}

my @very_big_sorted_unique_array = do {
  my %seen;
  $seen{$_} = 1 for @very_big_redundant_array;
  sort keys %seen;
};