#!/usr/bin/perl
package Meh;
use strict;
use warnings;
use PadWalker qw(var_name);

my @global_vars = (
	[\my $foo, 1],
	[\my $bar, 1],
	[\my $baz, 1],
);

foreach (@global_vars) {
	my ($ref,@other_stuff) = @$_;
	my $vname = var_name(0, $ref);
	die "Eh?" unless $vname;
	print $vname . "\n";
}