my @arr = (1 .. 10); print join(', ', @arr[0 .. $#arr - 1]), " & $arr[$#arr]\n";