#!perl -w
use strict;

my %SeqRec;
print ("content of hash is %SeqRec\n");

##</code><code>##

use Data::Dumper;
my %SeqRec = (foo => 'bar');

print ("content of hash is " . Dumper \%SeqRec);