@seq = ('acgt','actg','cggt','cggt','actg');
@num = ('1234','2345','3244','3455','5230');

Wrong algorithm
#for( 0..$#seq ){
#    $struct{$seq[$_]} ||= $num[$_];
#    $struct{$seq[$_]} = ($struct{$seq[$_]}+$num[$_]) / 2
#}