Select Code to Download

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";
}