Select Code to Download

$data[1]->{'477'}->[5] = [ 'value', 'value', 0 , undef, 5, 'value' ];

use MLDBM qw(DB_File Storable);
# ... stuff ....
...
        }
    }
}

$tmp = $data[$gid]->{$sample_id};
$tmp->[$element_num] = $element;

$tmp = $data[$gid];
$tmp=>{$sample_id} = [ $element1, $element2, ... ];