DB<103> @num=qw/Zero One Two Three Four/
 => ("Zero", "One", "Two", "Three", "Four")

  DB<104> $var=2; print "$var is $num[$var]";
 => 1
2 is Two