my ($op, $arg1, $arg2) = (@{$conwithposition{$key_pos}}[1],@{$conwithpos
+ition{$key_pos}}[2],$line[@{$conwithposition{$key_pos}}[0]]);
##</code><code>##

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