sub reverse_array {
	my $arr_ref = shift;
	my $rev_array = [];
	foreach my $item (@$arr_ref) {
		if (ref($item) eq 'ARRAY') {
			$item = reverse_array($item);
		}
		unshift @$rev_array, $item;
	}
	return $rev_array;
}