$ perl -E 'say join q{,}, ( q{?} ) x 8'
?,?,?,?,?,?,?,?
$