@arr = qw(zero one two three four five);
print "$_: $arr[$_]\n" for(3, 3.1415926);


##</code><code>##

3: three
3.1415926: three