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/

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 <= ?');

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.