__DATA__
>EP11110 (-) 
TGCAATCACTAGCAAGCTCTC
GCTGCCGTCACTAGCCTGTGG
>EP40005 (+) 
GGGGCTAGGGTTAGTTCTGGA
NNNNNNNNNNNNNNNNNNNNN

##</code><code>##

$VAR = { 'EP11110' => 'TGCAATCACTAGCAAGCTCTCGCTGCCGTCACTAGCCTGTGG',
         'EP40005' => 'GGGGCTAGGGTTAGTTCTGGANNNNNNNNNNNNNNNNNNNNN',};

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my %hash=();
my $str;
while (<DATA>) {
	chomp;
	/^>(\w+)/; 
	$hash{$1} = $str;
   	$str .= $_;	
	#next;
}

print Dumper \%hash;