while (my $line = <DATA>) {
  my @aFields=split(/\s+/,$line);
  my $kDb= $aFields[0] . '#' . $aFields[1];
  my ($variant,$rs) = split('##', $hash1{$kDb});

  #code to calculate
  my $result=calcFinalColumnValue($variant,$rs,\@aFields);

  #print row
  print "@aFields $result\n";
}