% my ( $html, $hashref ) = $svc_x->export_getstatus; % if ( keys %$hashref ) { Status settings <% ntable('#cccccc',2) %> % foreach my $key ( sort {$a cmp $b} keys %$hashref ) {