#!/usr/bin/perl
use strict;
use warnings;
use DBI;
my $DB=DBI->connect( ..fill this in.. );
my $data = $DB->selectall_arrayref("select ...");
print "Third column of fourth row is: $$data[3][2]\n";