perl get variable value ??? - Shell Programming and Scripting

zedex · #1 (**permalink**) 05-27-2009

hi i have following code

Code:

my $a1 = "A" ;
my $a2 = "B" ;
my $a3 = "C" ;

foreach my $k ( 1,2,3 ) 
{
    my $msg = ${a{$k}} # this should be at runtime i am creating variable a1 and assigning it value to msg .
    print "$msg\n" ;
}

above thing is not working !!!
i want when k = 1 msg = "A"

how can i do that ??

-----Post Update-----

i got it working i created array instead of 3 variables .. but still if you can tell me how can do it without array just for curiosity ...