Select Code to Download

given ($let) {
  when (/A/i) {
...
     $let = 9;
  }
}

sub letter_to_coord {
    # Converts A .. J into 0 .. 9, assuming valid data entered.
...
    return $num if $num < 10 and $num >= 0;
    die "invalid input!";
}

sub print_both_boards {
   print "USER BOARD:";
...
        print " @t\n";
   }
}

sub generate_ship_pos::any_ship {
    my $size = shift;
...
    }
    #push @main::com_ships::com_all_ships, map { "$$_[0]$$_[1]" } @shi
+p;
}

sub place_ship {
    my ($x, $y, $size, $orient, $type) = @_;
...
        print "You have entered invalid input. Please try again.\n\n";
    }
}

#!/usr/bin/perl
use v5.10.1;
...
    );
    return @t;
}