foreach my $msgnr ( reverse sort {$a<=>$b} keys %{$phash})