my ($b, undef, $b) = @array;