Select Code to Download

$var1 = 7;
$var2 = 3;
...
    $varname = 'var'.$number; 
    print $$varname."\n";
}

use strict;
my %var;
...
foreach my $number(1..2) {
    print $var{$number}."\n";
}