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