my @new_lot = 1 .. 186;

##</code><code>##

    for(my $o = 0;$o<6;$o++){

##</code><code>##

    for my $o (0 .. 6){