sub reverseArray {
	for(my $i=0;$i<scalar(@_);$i++){
		@{$_[$i]} = reverse @{$_[$i]};
	}
}

##</code><code>##

sub reverseArray {
	my @arr = @_;
	for(my $i=0;$i<scalar(@arr);$i++){
		$arr[$i] = [reverse @{$arr[$i]}];
	}
}