Select Code to Download

my @str;

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

print join ",", @str;

my %str;

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

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