sub goo { my $var = foo(); print "var is $var->{ message }\n" if $var->{error}; }