Just a side note: The OP does not really seem to be about "context" in Perl, which is a very particular idea. Please see Context tutorial for a discussion.