map { print $_ . ($_ == $array[$#array] ? '' : ', ' ) } @array;