sub f {
   ...
   $MyApp{+__FILE__.' '.__LINE__} ||= (log('some information'),1);
   ...
}