$ perl -MO=Xref,-r tst.pl|grep subused
tst.pl           (main)           2 main            & foo              subused
tst.pl           (main)           3 his             & bar              subused
...