Help for this page
my @temp = $info{$humangi};
my ($source, $position, $sink) = split(/(\d+)(\w)/, $Variant);
if ( $temp[$position] eq $source) {