#!/usr/bin/perl
use strict;
use warnings;
use Data::Printer;

my %hash = ( ';LCBO - Prolactin precursor - Bovine' => "a sample sequence in FASTA format
	     MDSKGSSQKGSRLLLLLVVSNLLLCQGVVSTPVCPNGPGNCQVSLRDLFDRAVMVSHYIHDLSS
	     EMFNEFDKRYAQGKGFITMALNSCHTSSLPTPEDKEQAQQTHHEVLMSLILGLLRSWNDPLYHL
	     VTEVRGMKGAPDAILSRAIEIEEENKRLLEGMEMIFGQVIPGAKETEPYPVWSGLPSLQTKDED
	     ARYSAFYNLLHCLRRDSSKIDTYLKLLNCRIIYNNNC*" );

my $filename = 'output.txt';

open(my $fh, '>', $filename)
    or die "Could not open file '$filename' $!";

p(%hash, output => $fh);

close $fh
    or warn "Could not open file '$filename' $!";

print "Done\n";

__END__

$ perl test.pl
Done
$ cat output.txt
{
    ';LCBO - Prolactin precursor - Bovine'   "a sample sequence in FASTA format
	     MDSKGSSQKGSRLLLLLVVSNLLLCQGVVSTPVCPNGPGNCQVSLRDLFDRAVMVSHYIHDLSS
	     EMFNEFDKRYAQGKGFITMALNSCHTSSLPTPEDKEQAQQTHHEVLMSLILGLLRSWNDPLYHL
	     VTEVRGMKGAPDAILSRAIEIEEENKRLLEGMEMIFGQVIPGAKETEPYPVWSGLPSLQTKDED
	     ARYSAFYNLLHCLRRDSSKIDTYLKLLNCRIIYNNNC*"
}