my $line;
my ($m, $n);
my %all_hash = ();
foreach $line (@lines){
        chomp $line;
        if($line =~ /^>/){
                $n = "\n$line\n";
        }else{
                $m = $line;
        }
        $all_hash{ $n } = $m;
}       
print %all_hash;