Help for this page
$current_line[1] eq $key && $current_line[5] == 1 && $current_line [2] = $position1) {
my $from = 0; ... }