sub MySub
{
 my (%Information,@Errors);
 # blah blah
 push @Errors,"an Error occured\n" if $whatever;
 return(\%Information,\@Errors);
}

my ($InformationRef,$ErrorsRef)=MySub;
my (%Information,@Errors)=(%{$InformationRef},@{$ErrorsRef}); # !!!