my $fh = substr $mpn, 0,2;
my $new_fh = '$'.$fh;
print $new_fh "$query\t$mpn\t......";