hmm something like this?

my @order=qw/MyHost MyLogdate MyDataset backup-time backup-status/;
for my $BckupSet_hr ( values %{ $MyItems{$server} } ) {
   print "$_ => ",$BckupSet_hr->{$_},";\t"  for (@order);
   print "\n";
}
[download]

Thats untested code, please take it as a base if it doesn't fit.

BTW: better use print Dumper(\%MyItems); instead of print Dumper(%MyItems);!