while($line = <rfqInfile>) {

    if(@lineResults = $line =~ m/$regexRfqEmail/g) {
        foreach my $item (@lineResults) {
            $posEmails{$item} = '';
        }
    }