Select Code to Download

my ($name,$pos,$gc,$score,$presentabsent) = parse($current_line);

my @posarray;
my %clsdata;

$posarray[$pos] = { 'gc' => $gc, 'score' => $score, 'present_absent' =
+> $presentabsent };
$clsdata{$name} = \@posarray;