Okay, this next one finds the averages of 4 Bowler's games, their handicaps, and the team handicap. I've read the warnings over and over and tried to fix it, but I can't. Any advice? (I realize that there is probably a much shorter way to write this, but right now i'm shooting for being able to do it as opposed to making it look nice.)
Everything works fine, save for the handicap and team handicap part. 
use strict;
use warnings;
my $hand1;
my $hand2;
my $hand3;
my $hand4;
print "Please enter Bowler 1's 3 scores: \n::";
    my $b11=<>; print "::";
    my $b12=<>; print "::";
    my $b13=<>; print "\n";
print "Please enter Bowler 2's 3 scores: \n::";
    my $b21=<>; print "::"; 
    my $b22=<>; print "::";
    my $b23=<>; print "\n";
print "Please enter Bowler 3's 3 scores: \n::";
    my $b31=<>; print "::"; 
    my $b32=<>; print "::";
    my $b33=<>; print "\n";
print "Please enter Bowler 4's 3 scores: \n::";
    my $b41=<>; print "::"; 
    my $b42=<>; print "::";
    my $b43=<>; print "\n";
my $ave1= int(($b11+$b12+$b13)/3);
if($ave1<=200){
    my $hand1=int((200-$ave1)*(.85));
    }
if($ave1>=200){
    my $hand1=0;
    }
my $ave2= int(($b21+$b22+$b23)/3);
if($ave2<=200){
    my $hand2=int((200-$ave2)*(.85));
    }
if($ave2>=200){
    my $hand2=0;
    }
my $ave3= int(($b31+$b32+$b33)/3);
if($ave3<=200){
    my $hand3=int((200-$ave3)*(.85));
    }
if($ave3>=200){
    my $hand3=0;
    }
my $ave4= int(($b41+$b42+$b43)/3);
if($ave4<=200){
    my $hand4=int((200-$ave4)*(.85));
    }
if($ave4>=200){
    my $hand4=0;
    }
my $teamhand=$hand1 + $hand2 + $hand3 + $hand4;
print "Bowler 1's Average Score:  $ave1      Bowler 1's Handicap:  $ha
+nd1\n";
print "Bowler 2's Average Score:  $ave2      Bowler 2's Handicap:  $ha
+nd2\n";
print "Bowler 3's Average Score:  $ave3      Bowler 3's Handicap:  $ha
+nd3\n";
print "Bowler 4's Average Score:  $ave4      Bowler 4's Handicap:  $ha
+nd4\n";
print "The team's handicap is:    $teamhand ";

[download]
Thanks in advance.

In reply to Bowling Handicaps by Andrew_Levenson

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.