don't do that ;-)

use strict;
my $a1 = 0; my $a2 = 1; my $a3 = 4;
my $b1 = 8; my $b2 = 2; my $b3 = 9;
my $c1 = 1; my $c2 = 4; my $c3 = 7;

for (my $i=1; $i<=3; $i++) { print eval "\${a$i} . \${c$i}. \${c$i}" }
[download]