## changed from (bugged):
  my $local = "[$n] set" if ($n/3) !~ /\./ ;

  ## to (fine):
  my $local ;
  $local = "[$n] set" if ($n/3) !~ /\./ ;