#!usr/bin/perl 

use strict;
use library;

my $filename = usrquery ("Please enter multiple FASTA filename: \n");
my %MULTIFAS = parseMULTIFAS ($filename);

do 	{my $query = usrquery ("Enter CASE-SENSITIVE identifier within FASTA tag (space quits): \n");
	chomp $query;
	if ($query =~ /^\s*$/)
	{exit;}
	my @keys = keys %MULTIFAS;
	open_outfile;
	foreach my $key (@keys)
		{
		if ($key =~ /$query/)
			{print OUTFILE "$key\n";
			print OUTFILE $MULTIFAS{"$key"} . "\n";
			}
		}
	close (OUTFILE);
	}
until (my $query =~ /quit/ );

exit;