expensis.pl

#!/usr/bin/env perl6
use v6;

sub MAIN() {
	my $sum = 0;
	while $_ =  prompt("> ") {
		my @strs = $_.split(',');
		$sum += @strs.pop;
	}
	say 'sum ', $sum;
}