foreach my $gtkWin (Gtk2::Window->list_toplevels()) {
    $wnckWinXid = $wnckWin->get_xid();
    $gtkWinXid = $gtkWin->get_xid();
    if ($wnckWinXid eq $gtkWinXid) {
        ...
    }
}