sub displayObj {
	my $obj = shift();
	Win32::MsgBox("Keys: " . join(', ', map { "$_ => $obj->{$_}" } sort keys %$obj ));
}
...
displayObj( $window);
displayObj( $window->{document});
...