Perl data flow visualizing after the END { }