my $str = @a > 1 ? join ', ', @a[$[..$#a-1], "and $a[-1]" : $a[0];