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