use Array::Utils qw/intersect/;for(1..<>){$c=<>;for(1..4){$l=<>;$f=$l if $c==$_}$c=<>;for(1..4){$l=<>;$s=$l if $c==$_}@a=split" ",$f;@b=split" ",$s;@i=intersect@a,@b;print"case #$_".(@i==1?" @i\n":@i?" Bad magician!\n":" Volunteer cheated!\n")}