>1       ##key
abcdef   ##value
>2
hijkl
>3
abnikhl..etc

##</code><code>##

 
while(<FILE>)
{
  $d=$_;
  $read.=$d;

 my ($key, $val) = split /\n/, $read;
  $hash{$key}= $val;

##</code><code>##

abcde
hijkl
mnop
qrst
uvwx..etc