my @str;

$str[0] = '';
$str[1] = '';
...
$str[99] = '';

print join ",", @str;