my $or; #### my $or = 0;