Select Code to Download

@fks = grep {
    not
    $_->table_to->name eq $orig_fk->table_from->name and
...
        $col_eq->([$orig_fk->columns_from], [$_->columns_to);
    }
} @fks;

@fks = grep {
    my $r =
    not
...
    }
    $r;
} @fks;

@fks = grep not(
    $_->table_to->name eq $orig_fk->table_from->name and
    $col->eq([$orig_fk->columns_from], [$_->columns_to])
...
    $_->table_to->name eq $orig_fk->table_from->name &&
    $col->eq([$orig_fk->columns_from], [$_->columns_to]),
    @fks;