my @sorted_keys = sort keys %{$ref->{incident}};

for my $incid ( @sorted_keys ) {
   # do something with $$ref{incident}{incid} ...
}