my @Genes = qw(A B C D)
my @ptt = ("19384..003059 0 - - A","203581..39502 0 + - B)
my @contig = ();
my @Coordinates;
my @Number;
my $R;


foreach my $G (@Genes){
	for my $x (0..$#ptt){
		if($ptt[$x] =~ /$G/){
		push(@Coordinates,"$ptt[$x]");
		print "$ptt[$x]\n";}
		
			
					    
					}
					}
foreach my $C (@Coordinates){
	push (@Number, split(" ", $C));}
	
	
my %hash = ();
my $file = "scaffold_contig.txt";
open(IN, "<$file") or die "Cannot open file $file\n";
my @lines = <IN>;
foreach  $1 (@lines){
	chomp($1);
    my %columns = split(">", $1);}
close(IN);
print "$lines[1];\n"

foreach my $N (@Number){
	for $R (0..$#lines){
		if($lines[$R] =~ /$N/){
			print "lines[$R]\n"
		}
	}
}