Select Code to Download

use strict;
use warnings;
...
    return ( $check_x == $win{x} and $check_y == $win{y} ) ? 1 : 0;
}

Starting grid:
ABBC
...
   DDIG
   FBB0
   JBB0