By @manHey guyz.

Here is my sample input file following by first part of my code:

Code:
* A B C D E
reg1 1 0 1 1 0
reg2 0 1 0 0 1
reg3 1 0 0 1 0
reg4 0 0 1 0 1
reg5 1 1 0 0 1

Code:
use strict;
use warnings;

open (IN, “test_input.txt”) or die (“Can’t open file.txt: $!n”);
my $line = ;
chomp $line;

my @TF = split (‘t’, $line);
shift (@TF);

while ($line = ) {
my @temp = split(‘t’, $line);
shift (@temp);
my $i = 0;

while ($i < @TF) {
if ($temp[$i]==1) {
print "$TF[$i]";
}
$i++;
}
}

close(IN);
It prints a list:

Code:
ACDBEADCEABE
I want this list to be stored in a 2 dimensional array following by a random number between 0-1 in second column. Desired array:

Code:
A 0.724392652
C 0.100361935
D 0.980176163
B 0.626905862
E 0.545560827
A 0.207170636
D 0.233475703
C 0.248689653
E 0.441124913
A 0.695127525
B 0.028040103
E 0.980644345
Any help? Thanks.
Source: The UNIX and Linux Forums