Rather than reimplementing something to try and (most likely, poorly and/or incompletely) parse Perl let it do it for you with B::Xref.