my $rows = $dbh->selectall_arrayref( $sql, { Slice => {} } );

##</code><code>##

  foreach my $row ( @$rows ) {
    print $row->{NAME}, "\n";
  }