# passing an anonymous array as user data
$button->signal_connect(clicked => \&btn_search, [$searchbox, $res_vbox]);

sub btn_search {
	my ($self, $args) = @_;
	# unpacking user data
	my ($entry, $box) = @$args;

	# ...