sub letter_to_coord {
    # Converts A .. J into 0 .. 9, assuming valid data entered.
    my $letter = uc(shift);
    my $num = ord($letter) - ord('A');
    return $num if $num < 10 and $num >= 0;
    die "invalid input!";
}