Adding up the first colum of wc output (only java files)

#!/usr/bin/perl
use strict;

my $total = 0;javascript:void(0)
my $count = 0;
while (<>) {
if ( m/\.java$/)
{
$count++;
chomp;
my ($lines,$dum1, $dum2, $fname) = split(' ', $_, 5);
$total += $lines;
print sprintf("%6d %10d %s\n", $lines, $total, $fname);
}
}
print "-----------------------\n";
print sprintf("%6s %10d %s\n", " ",$total, "Total");
print sprintf("%6s %10d %s\n", " ",$count, "Count");