#!/usr/bin/perl
use strict;
use warnings;

my @arr1 = ('1','2','3','4');
my @arr2 = ('a','b','c','d');
my @arr3 = ('I','II','III','IV');
my @arr4 = ('*','**','***','****');
print "1: @arr1\n2: @arr2\n3: @arr3\n4: @arr4\n\n\n";
test(\@arr1,\@arr2,\@arr3,\@arr4);
print "1: @arr1\n2: @arr2\n3: @arr3\n4: @arr4\n";

sub test {
	for my $z (0..scalar @_-1) {
		@{$_[$z]} = reverse(@{$_[$z]});
	}
}