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