our %dot_file_generated; if (! $dot_file_generated{$dot_file}++) { # just once for line/block/sub # ~