Updated: The loop should run from 0 not 1.
#! perl -slw
use strict;
my $count = 0;
for my $num ( 0 .. 127 ) {
vec( chr( $num ), $_, 2 ) or ++$count for 0 .. 3;
}
print $count;
__END__
160
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.