foreach my $row ( keys %$rows ) { my $cols = $rows->{$row}; if ( $cols->{0} ) { $line_pointer{$cols->{1}} = $cols->{1}; $line_pointer{$cols->{1}}{"numberOfLines"} = $counter++; } } #### $VAR1 = { '1' => '2' }; #### $VAR1 = { '1' => '1' };