Select Code to Download

my $now = 8;
my %url = ( monday => { @{[map(($_,1), (1..1000))]} } );
...
  $now = (sort grep {$_ <= $now} keys %{$url{'monday'}})[-1];
}

   my %url;
   my $now = 8;
...
        });
     undef %url;
   }