while (($_) = sort keys %data){ print "while: $data{$_}\n"; delete $data{$_}; }