A Gotcha with Vectors 

my $zero = '';
vec($zero, 31, 1) = 0;

if($zero) {
    print "\$zero is true\n";
}
else {
    print "\$zero is false\n";
}

$zero is true