my $suppress =
         ($self->{simpos} == 1) and (($typ eq 'BHC') || ($typ eq 'ISC'));

##</code><code>##

my $suppress;
{ no warnings;
  $suppress =
         ($self->{simpos} == 1) and (($typ eq 'BHC') || ($typ eq 'ISC'));
}
##</code><code>##

my $suppress =
         (($self->{simpos} == 1) and (($typ eq 'BHC') || ($typ eq 'ISC'
+)));