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

my %hash = ( ';LCBO - Prolactin precursor - Bovine' => "a sample sequence in FASTA format
	     MDSKGSSQKGSRLLLLLVVSNLLLCQGVVSTPVCPNGPGNCQVSLRDLFDRAVMVSHYIHDLSS
	     EMFNEFDKRYAQGKGFITMALNSCHTSSLPTPEDKEQAQQTHHEVLMSLILGLLRSWNDPLYHL
	     VTEVRGMKGAPDAILSRAIEIEEENKRLLEGMEMIFGQVIPGAKETEPYPVWSGLPSLQTKDED
	     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 FASTA format
	     MDSKGSSQKGSRLLLLLVVSNLLLCQGVVSTPVCPNGPGNCQVSLRDLFDRAVMVSHYIHDLSS
	     EMFNEFDKRYAQGKGFITMALNSCHTSSLPTPEDKEQAQQTHHEVLMSLILGLLRSWNDPLYHL
	     VTEVRGMKGAPDAILSRAIEIEEENKRLLEGMEMIFGQVIPGAKETEPYPVWSGLPSLQTKDED
	     ARYSAFYNLLHCLRRDSSKIDTYLKLLNCRIIYNNNC*"
}
$VAR1 = {
          ';LCBO - Prolactin precursor - Bovine' => 'a sample sequence in FASTA format
	     MDSKGSSQKGSRLLLLLVVSNLLLCQGVVSTPVCPNGPGNCQVSLRDLFDRAVMVSHYIHDLSS
	     EMFNEFDKRYAQGKGFITMALNSCHTSSLPTPEDKEQAQQTHHEVLMSLILGLLRSWNDPLYHL
	     VTEVRGMKGAPDAILSRAIEIEEENKRLLEGMEMIFGQVIPGAKETEPYPVWSGLPSLQTKDED
	     ARYSAFYNLLHCLRRDSSKIDTYLKLLNCRIIYNNNC*'
        };
$ cat test.txt 
---
';LCBO - Prolactin precursor - Bovine': |-
  a sample sequence in FASTA format
  	     MDSKGSSQKGSRLLLLLVVSNLLLCQGVVSTPVCPNGPGNCQVSLRDLFDRAVMVSHYIHDLSS
  	     EMFNEFDKRYAQGKGFITMALNSCHTSSLPTPEDKEQAQQTHHEVLMSLILGLLRSWNDPLYHL
  	     VTEVRGMKGAPDAILSRAIEIEEENKRLLEGMEMIFGQVIPGAKETEPYPVWSGLPSLQTKDED
  	     ARYSAFYNLLHCLRRDSSKIDTYLKLLNCRIIYNNNC*