You are looking at a very old, but free version of the course. If you are interesed the most recent version, check it out on the Perl Maven site.

13.7. SELECT, using hashref

Example 13-5. examples/dbi/select_hashref.pl

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

use DBI;

my $dbfile = "sample.db";

my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile");

my $sth = $dbh->prepare('SELECT fname, lname FROM users WHERE id <= ?');
$sth->execute(1);

while (my $h = $sth->fetchrow_hashref('NAME_lc')) {
    print "$h->{fname}  $h->{lname}\n";
}

If you are interested in on-site trainings by the author, please contact me directly.