
while (<>) {
  ($name, $amount, $ssn) = split /:/, $_;
  $total_amount += $amount;
}
print "The total is $total_amount.\n";








