@myNames = ('Larry', 'Curly', 'Moe');
foreach my $id(0..$#myNames) {
 		$var.$id-> $myNames[$id];
        print $id+ 1 . " $myNames[$id]\n";
    }

 print "$var0 \n";
 print "$var1 \n";
 print "$var2 \n";