my ($op, $arg1, $arg2) = (@{$conwithposition{$key_pos}}[1],@{$conwithp
+os
+ition{$key_pos}}[2],$line[@{$conwithposition{$key_pos}}[0]]);
[download]

just a comment on style, i find this extremely unreadable.

my ($op, $arg1, $arg2) = (
    @{ $conwithposition{$key_pos} }[1,2],
    $line[ $conwithposition{$key_pos}->[0] ]
);
[download]