perl -MO=Debug -e 'use strict;my @a;for my $f (@a){no strict "refs";print $$f}'