in reply to Perl TK performance issue

use Devel::NYTProf, try
perl -d:NYTProf some_perl.pl
nytprofhtml --open