if(@ARGV < 3){
die "Not enough arguments\n";
}
$sequence="";
$fastaID;
open(FILE1,"$ARGV[0]") or die "No fasta file provided in command line: $!\n";
while ($line=<FILE1>){
chomp($line);
if ($line=~/^\s*$/){
next;
}elsif ($line=~/^.*$/){
$fastaID=$line;
$fastahash{$fastaID}=1;
}
}
open(FILE2,"$ARGV[2]") or die "No fasta file provided in command line: $!\n";
while($line2=<FILE2>){
chomp($line2);
if ($line2=~/^>/){
@data=split(" ",$line2);

$fasta=$data[1];

$sequence="";
}else{
$sequence.=$line2;
}
}
if (exists $fastahash{$fasta}){
print "$fastaID\t $sequence\n";
}


exit;