#!/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" );

##</code><code>##

$dbh->sqlite_backup_to_file("newDBname.sqlite");
# ^^^ To go from ":memory:" to a file. Then you also have access to
# the DB via the command line with the sqlite executable.
# moo@cow[2574]~>sqlite3 "newDBname.sqlite"
# sqlite> select * from sampleData;
# 3211111|100|3.2
# 3211112|101|3.2
# ...et cetera...