# compare dump components numerically
$res = $a->{$k} <=> $b->{$k};
} else { # ($k =~ /^(hostname|diskname|write_timestamp|dump_timestamp)$/)
# compare dump components numerically
$res = $a->{$k} <=> $b->{$k};
} else { # ($k =~ /^(hostname|diskname|write_timestamp|dump_timestamp)$/)