use strict;
use warnings;

open (PROTEIN,"<invertebrate.protein.gpff") or die $! ; 

my @prot=<PROTEIN>;

my $protlen=$#prot;
my $version="VERSION";
my $dbsource="DBSOURCE";
my $protname;
my $rna;

for(my $i=0;$i<=$protlen;$i++)
{
	if((substr($prot[$i],0,7)) eq $version)
	{
	# have to store the value of "YP_001648463.1" in $protname
	}
	if((substr($prot[$i],0,8)) eq $dbsource)
	{
	# have to store the value of "NC_010202.1" in $rna
	}
}

close PROTEIN;