my @var = ('','a'..'z'); print "$var[$_] " for (1,2,3,10);