#! 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