open(FILE, "$path_to_fastaSeqs") or die("cannot open file");
{
while(<FILE>)
{
my $line = $_;
 if ($line =~ />.*/)
  {
  #print "$&\n";
  }
else
  {
  #print "$line\n";
  }
$seqInfo{$&} = $line;
}
close(FILE);
}