#!/usr/bin/perl

my %seqInfo = ();

open(FILE, 'test.fasta');
{
while(<FILE>)
{
my $line = $_;
 if ($line =~ />.*/)
  {
  #print "$&\n";
  }
else
  {
  #print "$line\n";
  }
$seqInfo{$&} = $line;
print "$& => $line\n";
}
}