In direct response... but it will not work under 'strict'

$var1 = 7;
$var2 = 3;
foreach $number(1..2) {
    $varname = 'var'.$number; 
    print $$varname."\n";
}
[download]

Or you could use a hash

use strict;
my %var;
$var{1} = 7;
$var{2} = 3;
foreach my $number(1..2) {
    print $var{$number}."\n";
}
[download]