use strict;
use warnings;
use Data::Dumper;
############################
my $inGNPS="MsRtLib_all.tab";
open(IN,$inGNPS);
my %HoPMAnnot; my %HoPMrtAnnot;
while(my $line=<IN>){
        chomp $line;
        my ($ParMass,$RT,$annot)=split(/\t/,$line);
        $HoPMAnnot{$ParMass}=$annot;
        $HoPMrtAnnot{$ParMass}{$RT}=$annot;
}
close(IN);
print Dumper (%HoPMAnnot);
######
my $inATdat="consensus_features_extracted.csv";
open(IN,$inATdat);

while(my $line=<IN>){
        chomp $line;
        next if($line =~/^,/); # header starts with comma
        my ($feat_numb,$mz_min,$mz_max,$rt_min,$rt_max,$quality,$intensity)=split(/,/,$line);
        foreach my $PM (keys %HoPMAnnot){
                if ($PM <=$mz_max && $PM >=$mz_min){
                        print join("\t",$line,$HoPMAnnot{$PM})."\n";
                }
        }
}
close(IN);