my @vars;
my $second = \$vars[1];
my $i = 0;
for ( qw( able baker charlie ) ) { 
  $vars[ $i++ ] = $_;
}
print "second: ", $$second, "\n";