my %str;

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

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