#!/usr/local/bin/perl

use strict;
use warnings;

my $resfile = shift;
my $csafile = shift;

open(RESFILE, "$resfile") or die "unable to open $resfile: $!\n";
open(CSAFILE, "$csafile") or die "unable to open $csafile: $!\n";
open(OUTFILE, ">outfile") or die "Can't open the outfile: $!\n";

my %REShash;
#concatenate number and id for (hopefully) unique hash key
while (<RESFILE>){
	/([A-Z])\s(\d+)\s([0-9a-zA-Z]+)/;
	my $currentID = $3.$2;
	$REShash{$currentID}=$1;
}

while(<CSAFILE>)
{
	chomp;
   my @record = split (/,/, $_);
   #concatenate all parts of the record to get same formated hash key
   my $currentId= $record[0].$record[3].$record[4];
   if (exists $REShash{$currentId}){
   print OUTFILE join(',', @record)."\n";
   }
}