Select Code to Download

use Modern::Perl;
use Data::Dumper;
...
KN-1792-LAST_rep_c7834    IMGA|Medtr4g125100.1    4e-37    187
KN-1792-LAST_rep_c7834    IMGA|Medtr4g125100.2    4e-37    187
KN-1792-LAST_rep_c7834    IMGA|Medtr4g125100.3    4e-35    188

${ $HoAoArrays{KN-1792-LAST_rep_c7834} }[0]->[1] = 2e-150
${ $HoAoArrays{KN-1792-LAST_rep_c7834} }[1]->[1] = 4e-37
...
                                        ]
                                      ]
        };