my $sql = "select * from location";
my $sth = $dbh->prepare( $sql );
$sth->execute();
while (my @record = $sth->fetchrow_array) {
  print join(", ", @record);
  print "\n";
}
$dbh->disconnect();

##</code><code>##

#!/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