Good Tutorial, though l have to admit l did get caught out my the selectall_hashref and after searching this site, l found an easy solution to it:

my $table_data = $dbh->prepare($companyquery);
$table_data->execute;

my $arrayref = $table_data->fetchall_arrayref({});
$template->param(ROWS => $arrayref);
[download]

Hope this helps