Select Code to Download

use Text::CSV 'csv';

my $aoh = csv ( in => 'input.csv', headers => 'auto' );
...
    # Just an example.
    $sums{$_} += $row->{$_} for @pats;
}