my %test_procs; foreach my $sym (sort keys %main::){ if(defined &{$main::{$sym}}){ $test_procs{\&{$main::{$sym}}} = $sym; } } foreach my $sub_ref (keys %test_procs){ foreach(@procs){ print "$test_procs{$sub_ref}\n" if $sub_ref eq $_; } }