my $str0='';
(..)
my $str99='';