##this bit of the script is not working ###

 #        @uniform = $random_number;
                                
#                    my @temp =   map { [ $_[1], $_[0], $_ ] } # step 1
   #                          map { $_->[2] } # step 2
   #                           @uniform;

##</code><code>##

    my @temp = # third, the final results are stored in @temp
        map { $_->[2] } # second this applies to the results of the following:
        map { [ $_[1], $_[0], $_ ] } # first this applies to @uniform
        @uniform;

##</code><code>##

    my @temp = map { ($_[1], $_[0], $_ )[2] } @uniform;

##</code><code>##

    my @temp = @uniform;