#!/usr/bin/env perl
use strict;
use warnings;
use DBI;

my $dbh = DBI->connect('dbi:SQLite:dbname=delme.sqlite', '');

$dbh->do('CREATE TABLE Bins (Xk INTEGER, Yk INTEGER, Zk INTEGER, Data TEXT)');

my $sql = 'INSERT INTO Bins (Xk, Yk, Zk, Data) VALUES (?, ?, ?, ?)';
my $sth = $dbh->prepare ($sql);

while (defined (my $data = <DATA>)) {
    my ($xKey, $yKey, $zKey) = split ' ', $data;
    
    chomp $data;
    $sth->execute((map {int} $xKey, $yKey, $zKey), $data);
}

$sql = 'SELECT * FROM Bins ORDER BY Xk, Yk, Zk';
$sth = $dbh->prepare($sql);
$sth->execute();

while (my $row = $sth->fetchrow_hashref()) {
    print "$row->{Xk}, $row->{Yk}, $row->{Zk} => $row->{Data}\n";
}


__DATA__
4.941 32.586 -1.772 -44.368_23.583_-218.345_0.983_-0.012_0.005_-0.382_0.041_0.205
15.354 22.823 10.556 -56.368_2.583_-28.745_0.883_-0.012_0.005_-0.382_0.041_0.205
-0.495 12.345 98.234 -0.382_0.041_0.205_-28.745_0.883_-0.012_0.005_-0.382_0.041