sub Print {
    my $hashref = shift;
    my ($key) = keys %{$hashref};
    # @Parameters truncated for posting purposes only
    my @parameters = ('key','type','flags','Alias-2','Zip Code','Building','Owner')
    foreach my $parm (@parameters) {    
        next unless ($hashref->{$key}->{$parm});
        my $value;
        if ($parm eq 'key') {
            $value = $key;
        }
        else {
            $value = $hashref->{$key}->{$parm};
        } 
        if (length($value) >= 62) {
            printf("%-16s: %s\n\t%s\n",$parm,substr($value,0,62),substr($value,62));
        }
        else {
            printf("%-16s: %s\n",$parm,$value);
        }
    }
}