foreach (sort { $po{$a} <=> $po{b} } keys %po) {
  push @processes, $subs{$_};
}