Select Code to Download

our @array = 'a' .. 'e';
our @figure_out = 'd' .. 'g';
...

  @array = sort {$h{$a}<=>$h{$b}} keys %h;
}

{
   my @new = ();
...

   @array = @new;
}