'labelupdate' => sub { print "process_modules - Debug: Calling WriteoutLabel with active_modules_ref:\n" if $DEBUG; foreach my $key (keys %$active_modules_ref) { print " $key => $active_modules_ref->{$key}\n" if $DEBUG; } Label::WriteoutLabel($active_modules_ref); # Pass as a reference