Select Code to Download

%squares = (
        a1 => $a1,
...
        c2 => $c2,
        c3 => $c3
);

# makes the moved piece blank
sub make_blank() {
    $squares{$response} = " ";
}