...
    foreach $key (sort keys %{$obj->somehash}) {
       next unless $key;
    ...