$VAR1 = {
'0000006' => [
47,
986,
{
'6' => [
undef,
8,
'0.0476673428',
'0.0000000000',
'0.0000000000',
'0.0504833512',
'-2.3718998111e+01',
'6.7559883050e-01',
'0.0000000000e+00',
'0.0000000000e+00'
],
'4' => [
undef,
3,
'0.0476673428',
'0.0000000000',
'0.0000000000',
'0.0502136752',
'-2.3718998111e+01',
'8.6357443606e-01',
'0.0000000000e+00',
'0.0000000000e+00'
],
'1' => [
19,
439,
'0.0476673428',
'0.0432801822',
'0.0452380952',
'0.0539499037',
'-1.7611636075e-01',
'3.3572455230e-01',
'2.3371924011e-01',
'4.6743848022e-01'
],
'3' => [
'NA'
],
'2' => [
22,
286,
'0.0476673428',
'0.0769230769',
'0.0833333333',
'0.0370370370',
'8.1093021684e-01',
'9.9753809371e-01',
'9.9388971159e-01',
'1.0000000000e+00'
],
'5' => [
6,
249,
'0.0476673428',
'0.0240963855',
'0.0246913580',
'0.0589080460',
'-8.6952438185e-01',
'2.6721209055e-02',
'9.8480960134e-03',
'1.9696192027e-02'
]
}
]
}
####
@arg{key} = (1 .. 6);
foreach my $physh (@{$arg{key}}){
next if (!$hash{$_}[2]{$physh}[9]);
...
}
####
$VAR1 = {
'' => [
undef,
undef,
{
'' => []
}
],
'GO:0000006' => [
47,
986,
{
'6' => [
undef,
8,
'0.0476673428',
'0.0000000000',
'0.0000000000',
'0.0504833512',
'-2.3718998111e+01',
'6.7559883050e-01',
'0.0000000000e+00',
'0.0000000000e+00'
...
the:
'' => [
undef,
undef,
{
'' => []
}
],
is something that i don't need- it creates a problem further in the code