As far I understood your post, here is my suggestion but not sure whether I got your question right or not.

use Data::Dumper;

$rows = { 0 =>  {0 => "zero", 1=>"One", 2=>"kjh"} ,
          1 => {0 => "zero", 1=>"One", 2=>"sdfgsd"},
         2 => {0 => "zero", 1 =>"Two", 2=>"ety"},
         4 => {0 => "zero", 1 =>"Two", 2=>"dfgdfg"},
         5 => {0 => "zero", 1 =>"Two", 2=>"Test"},
};

print Dumper $rows;

%line_pointer=();

foreach my $row ( keys %$rows ) {
    my $cols = $rows->{$row};

  if ( $cols->{0} ) {
   $line_pointer{$cols->{1}}{"numberOfLines"} = $line_pointer{$cols->{
+1}}++;
   }

}


print Dumper \%line_pointer;
[download]

Output :

$VAR1 = {
          'Two' => 3,
          'One' => 2
        };
[download]