use vars qw/$now %url/;

    $now = 8;
    %url = ( monday => { @{[map(($_,1), (1..1000))]} } );