#!/usr/bin/perl

use strict; 
use warnings;
use diagnostics;
use FAlite;

die "usage: $0 <fasta> <list>\n" unless @ARGV == 2;

open(FASTA, $ARGV[0]) or die;
my $fasta = new FAlite(\*FASTA);
while (my $entry = $fasta->nextEntry) {
	my $gseq = $entry->seq;
	my ($chrom) = $entry->def =~ /(^\S+)/;
	my @a1 = $chrom;
	my %hash;
	$hash{$_}++ for @a1;
	
	my $header;
	open(LIST, $ARGV[1]) or die;
	while (<LIST>) {
		next if /^#/;
		my ($header, $score) = split;
		my @a2 = $header;
		
			for my $item (@a2) {
    		if ($hash{$item}) {print "$chrom\n$gseq\n"};
        }
    }
}

close FASTA;
close LIST;
__END__