pugs> for zip(@names; @ages) ->  $name, $age  {say  "   $name.[0] is $name[1] old; while  $age.[0] may be $age
[1]"}
   Jack is 20 old; while  Emma may be 19
   Robert is 35 old; while   may be
undef