In addition to Joost's correct comments, also be careful to use the same identifier $query to represent semantically different concepts: at the very beginning it's a statement handle object, while it becomes a string containing the query to be executed later.

I also don't entirely get the meaning of MAPPING, which automagically becomes ORA_MAPPING inside the cycle - this definitevely poses a requirement to you: use strict :)