my @numbers = (1,2,3);
my @names   = qw(tine host fritz);

if(wenden({names => \@names, numbers => \@numbers})){
	print "Namen und Zahlen wurden gewendet, guckst Du:\n",
	Dumper \@names, \@numbers;
}
else{
	die "Mist, das Wenden geht nicht!";
}

sub wenden{
	my $ref = shift;
	@{$ref->{names}} = reverse(@{$ref->{names}});
	@{$ref->{numbers}} = reverse(@{$ref->{numbers}});
	1;
}