my %row;
while(<>) {
    chomp;
    my($key, $value) = split ' ', $_, 2
        or next;
    $row{$key} = $value;
}

##</code><code>##

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

##</code><code>##

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