foreach $line (@FILE1){
        chomp($line);
        my($ID, @values) = split("\t", $line);

        $aref = \@values;

        $common1{$ID} = $aref;


}
print $common1{"B01_05_121214_LAP_G1_87_20593"};