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