for my $records ( @records ) {
    print "Proteins: ", join( ", ", @{ $record->{'protein'} } ), "\n" 
       if ( scalar @{ $record->{'protein'} } );
    print "Score: ", $record->{'score'}, "\n";
    print "-" x 72;
}