You could use a real bitvector instead of a memory hungry array:

use PDL;
$n = 50;
$vec = zeroes ($n+1);
index($vec,0) .= 1;
[download]