perl function references

gistfile1.pl

sub test1 {
  # reference
  return [0, "error"];
}

sub test2 {
  # array
  return (0, "success");
}

sub test3 {
  # hash
  return { 1, "aaaa" };
}

my ($result, $error) = @{&test1};
print $result . "\n";
print $error . "\n";

($result, $error) = &test2;
print $result . "\n";
print $error . "\n";

($result, $error) = %{&test3};
print $result . "\n";
print $error . "\n";