sub foo {
return \%hash, \@array;
}

じゃ駄目なの？