sub foo {
    #...
    return { errno => 0, errmess => $msg };
}

my $error = foo();
print $error->{errno}, $error->{errmess};