Hello FIJI42,

Regarding I want to print the hash information into two separate files in fasta format try sample of code below:

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use YAML qw( DumpFile LoadFile );

my %hash = ( ';LCBO - Prolactin precursor - Bovine' => "a sample seque
+nce in FASTA format
         MDSKGSSQKGSRLLLLLVVSNLLLCQGVVSTPVCPNGPGNCQVSLRDLFDRAVMVSHYIHD
+LSS
         EMFNEFDKRYAQGKGFITMALNSCHTSSLPTPEDKEQAQQTHHEVLMSLILGLLRSWNDPL
+YHL
         VTEVRGMKGAPDAILSRAIEIEEENKRLLEGMEMIFGQVIPGAKETEPYPVWSGLPSLQTK
+DED
         ARYSAFYNLLHCLRRDSSKIDTYLKLLNCRIIYNNNC*" );

p %hash;

my $filename = 'test.txt';

DumpFile( $filename, \%hash );

my $reconstituted = LoadFile($filename);

# check it out in Data::Dumper style-
print Dumper $reconstituted;

__END__

$ perl test.pl
{
    ';LCBO - Prolactin precursor - Bovine'   "a sample sequence in FAS
+TA format
         MDSKGSSQKGSRLLLLLVVSNLLLCQGVVSTPVCPNGPGNCQVSLRDLFDRAVMVSHYIHD
+LSS
         EMFNEFDKRYAQGKGFITMALNSCHTSSLPTPEDKEQAQQTHHEVLMSLILGLLRSWNDPL
+YHL
         VTEVRGMKGAPDAILSRAIEIEEENKRLLEGMEMIFGQVIPGAKETEPYPVWSGLPSLQTK
+DED
         ARYSAFYNLLHCLRRDSSKIDTYLKLLNCRIIYNNNC*"
}
$VAR1 = {
          ';LCBO - Prolactin precursor - Bovine' => 'a sample sequence
+ in FASTA format
         MDSKGSSQKGSRLLLLLVVSNLLLCQGVVSTPVCPNGPGNCQVSLRDLFDRAVMVSHYIHD
+LSS
         EMFNEFDKRYAQGKGFITMALNSCHTSSLPTPEDKEQAQQTHHEVLMSLILGLLRSWNDPL
+YHL
         VTEVRGMKGAPDAILSRAIEIEEENKRLLEGMEMIFGQVIPGAKETEPYPVWSGLPSLQTK
+DED
         ARYSAFYNLLHCLRRDSSKIDTYLKLLNCRIIYNNNC*'
        };
$ cat test.txt 
---
';LCBO - Prolactin precursor - Bovine': |-
  a sample sequence in FASTA format
           MDSKGSSQKGSRLLLLLVVSNLLLCQGVVSTPVCPNGPGNCQVSLRDLFDRAVMVSHYI
+HDLSS
           EMFNEFDKRYAQGKGFITMALNSCHTSSLPTPEDKEQAQQTHHEVLMSLILGLLRSWND
+PLYHL
           VTEVRGMKGAPDAILSRAIEIEEENKRLLEGMEMIFGQVIPGAKETEPYPVWSGLPSLQ
+TKDED
           ARYSAFYNLLHCLRRDSSKIDTYLKLLNCRIIYNNNC*
[download]

I do not have sample of your data to test but it should be ok.

Update: Adding sample of fasta data and output that I found here FASTA format. Play around with the hash and the data that you want to populate.

Hope this helps, BR.