while (my $hash_ref = $result->fetchrow_arrayref) {
    print "AddressPort: $hash_ref{AddressPort}\n";
}