foreach my $item ( sort( { $a <=> $b } keys %self ) ) {