diff --git a/dbms/scripts/geobase_to_regions_hierarchy.pl b/dbms/scripts/geobase_to_regions_hierarchy.pl
new file mode 100755
index 00000000000..5c852f8aae2
--- /dev/null
+++ b/dbms/scripts/geobase_to_regions_hierarchy.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+use geobase;
+
+foreach my $key (keys %Region) {
+	print $key . "\t" 
+		. ($Region{$key}->{parents}[-1] || 0) . "\t" 
+		. ($Region{$key}->{type} || 0) . "\n";
+}