Select Code to Download

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

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

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

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

    my @temp = @uniform;