use DBD::SQLite;
use Data::Dumper;

use strict;
use warnings;

my $dbh = DBI->connect("dbi:SQLite:uri=file:osopenusrn_202203.gpkg?mode=rwc");

my $tab = $dbh->prepare("SELECT * FROM openUSRN");
$tab->execute;
my $data = $tab->fetchrow_hashref;

my @test = unpack "(H2)2 CCVd6CVV", $data->{'geometry'};

foreach my $t(@test) {
    print "$t\n";
}

print "\n-----\n\n";

printf ('%f ', $test[4]);
printf ('%f', $test[6]);