Perl5 queen attack

fixing tests