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

            #        @uniform = $random_number;

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