my @junk = split /;/, join ';', 'a'..'z', 'A'..'J';
print int(@junk),"\n";
print "@junk\n";
print "$_=$junk[$_]  " for 0,1,10,20,33,34,-1;
__END__
36
a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J
0=a  1=b  10=k  20=u  33=H  34=I  -1=J