#!/usr/bin/perl -pl

    $tot += $_ }{ $_ =+ $tot