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

##</code><code>##

my @posarray;
my %clsdata;

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