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