while (<>) {
    chomp;
    $s += $_ if $_ > 10240;
}
print "$s\n";