for my $empnum (sort keys %empwork) { ... my $periods = $empwork{$empnum}{CNT}; ... }