getting literal name of a variable

Hi,

This question is either so easy, I'm overlooking the answer,
or it is beyond me.

I want to automatically print a variable's name.

For example:
###################################
#!/usr/bin/perl
use warnings;
use strict;

my $string = '1,2,3,4';
my @a = (my $var1, my $var2, my $var3, my $var4)= split (/,/, $string);
foreach my $element (@a) {print "elementname"\t$element\n}
##################################

this prints:
elementname 1
elementname 2
elementname 3
elementname 4

I want:

'var1' 1
'var2' 2
'var3' 3
'var4' 4

Is there a way of getting the variable's name as a literal automatically,
without resorting to a hash?

• getting literal name of a variable by zentara
• RE: getting literal name of a variable by Wagner-David
• Re: getting literal name of a variable by Jonathan E. Paton
• Perl Server Pages by Eric Plowe