Select Code to Download

$current_line[1] eq $key 
&& $current_line[5] == 1
&& $current_line [2] = $position1) {

my $from = 0;
...
}