Hast mal gekuckt ob da my ($left, $right) = @_; überhaupt was ankommt? Ich vermute nämlich daß $left und $right gar nicht da ankommen.