sub readAccount { my ($fname) = @_; my $balance = 0; open(my $fh, "<", $fname) or die($!); foreach my $line (<$fh>) { chomp $line; if($line =~ /(.+)\;(.+)/) { $balance += $2; } } close $fh; print "$fname balance: $balance\n"; }