use Sort::Key::Top qw(rukeytop);
  # ru => means reverse order and sorting keys are unsigned integers

my @recent = rukeytop { $out_hash{$_}{EPOCH} } 10 => keys %out_hash;