#!/usr/local/bin/perl -w

@records = <STDIN>;

foreach (@records) {
	($a, $b, $c) = split /\s+/;
	$sum = $sum + $b;
}
print STDOUT ("Sum is $sum\n");
