Your foo only returns one value which is a reference to a hash (which is a common technique). To get the values, use a bit more notation, something like so:

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