use v5.12;
use PPI;

my $perl = PPI::Document::->new(do { local $/ = <DATA>; \$/ });

say $_ for @{ $perl->find('PPI::Token::Symbol') };

__DATA__
# Some sample code to analyse

my $foo = 1;
my @bar = (2, 3);
say $bar[0];