throw ex for usage of $foo before $^foo in sub body (RT #123470)