Select Code to Download

my %row;
while(<>) {
...
        or next;
    $row{$key} = $value;
}

use Data::Dumper;
print Dumper \%row;

# $db is the DBIx::Simple database connection handle object
$db->insert($table, \%row);