my @str;

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

print join ",", @str;

##</code><code>##

my %str;

$str{0} = '';
$str{1} = '';
...
$str{99} = '';

print join ",", map {$str{$_}} 0..99;