#!/usr/bin/env perl
use strict; 
use warnings;
use DBI;
use SQL::Abstract;
use Data::Dump;


my $dbh = DBI->connect("dbi:SQLite:dbfile","","");
my $sql=SQL::Abstract->new;

# See perldoc SQL::Abstract
my($stmt, @bind) = $sql->select('location'); 

my $sth = $dbh->prepare($stmt);
$sth->execute(@bind);
my $data  = $sth->fetchall_arrayref({});

dd @$data[0]; # First row from the database as hashref
dd @$data[1]; # Second row from the database as hashref
dd $data->[0]{field1}; #field1 from first row