#!/usr/bin/env perl
use strict;
use warnings;
use Text::CSV_XS "csv";
use DBI;

my $csv_file = shift || die "Give a CSV file with sample data\n";

my $dbh = DBI->connect("dbi:SQLite::memory:"); # DB is ":memory:"

$dbh->do(<<"");
    CREATE TABLE sampleData( sample, input, amount )

my $insert_h = $dbh->prepare(<<"");
    INSERT INTO sampleData VALUES( ?, ?, ? )

csv( in => "test.csv",
     on_in => sub {
         my @values = @{ $_[1] };
         $insert_h->execute(@values) if @values == 3;
     });

my $tallies = $dbh->selectall_arrayref(<<"");
    SELECT  sample
           ,input
           ,SUM(amount)
      FROM  sampleData
  GROUP BY  sample, input
  ORDER BY  sample, input

csv( in => $tallies,
     out => "outputfile.csv" );