my @y = foo( foo => 1, bar => 2, baz => 3) or die $@;
print "Hallo, ich lebe noch!\n";
sub foo{
	my %in = @_;
	# erstelle eine hashref UND eine liste
	my $ref = {};
	my @li  = ();
	eval{
		# zum Testen eine exception
		die "Something is wrong!\n";
		$ref = \%in;
		@li  = values %in;
	};
	return if $@;
	return wantarray ? @li : $ref;
}