{ my ($line,$occurrence) = (0,0); sub some_sub { $, = ' - '; my @caller = caller(); if($caller[2] == $line) { $occurrence++; } else { $line = $caller[2]; $occurrence = 0; } print @caller, $occurrence, $/; } }