sub inicialitzacions
{
    $torn='B';
    @taulell = ([],[],[],[('','','','B','N')],[('','','','N','B')]);
    @pos{'x','y'}=(2,2);
}