use strict;
use warnings;


my @xref = qx/perl -MO=Xref my_test_file.pl/;

my $subname = "my_sub_name";

my @subs = grep { /(?:\&|Subroutine\s)$subname/ } @xref;

print "$_\n" foreach @subs;