#!/usr/bin/perluse strict;use warnings;my $csv_file="@ARGV";my %struct_hash;##### functionssub read_csv { my @csv; open my $fh, "$csv_file" or die "bad file: \"$csv_file\" - can't open\n"; push(@csv, "$_") while(<$fh>); close $fh; return @csv;};## builds %struct_hash with following inside:## `$struct_hash{$_}->{'str'}` is utf8 string decr## `$struct_hash{$_}->{'parent'}` full parent addrress## `$struct_hash{$_}->{'plen'} = $len_par;` parent's length### here we go first with initializing $struct_hash and adding 'str'sub build_struct_hash { my %struct_hash; foreach(read_csv()) { my($pos_xy, $pos_str) = split(/;/, "$_"); $pos_xy =~ s/\D//g; $pos_str =~ s/\r//g; chomp($pos_str); $struct_hash{$pos_xy} = {}; $struct_hash{$pos_xy}->{'str'} = $pos_str; };## now we sort hash and creating length indexes 'plen' and 'parent' my $len_last = 0; my $len_par = 0; my $len_tmp = 2; foreach(sort {$a <=> $b} keys(%struct_hash)) { if(length == $len_tmp) { $struct_hash{$_}->{'parent'} = substr($_, 0, $len_par); $struct_hash{$_}->{'plen'} = $len_par; } else { $struct_hash{$_}->{'parent'} = substr($_, 0, $len_tmp); $struct_hash{$_}->{'plen'} = $len_tmp; $len_par = $len_tmp; }; $len_tmp = length; }; return %struct_hash;};########### main body:%struct_hash = build_struct_hash();########## user body:## example# for work with all keys we need to do it like this:foreach(sort {$a <=> $b} keys(%struct_hash)) { print "$_ ", length; print "\t\t$struct_hash{$_}->{'parent'} $struct_hash{$_}->{'plen'}\t\t$struct_hash{$_}->{'str'}\n";};exit;