http://www.perlmonks.org?node_id=1059688


in reply to Sheer idle curiousity . . .

To put it into perspective, the slowest one of the above takes 180 billionths of a second, while a subroutine call with a single ten-character string argument takes 650 billionths of a second.

If your tenth of millionths of seconds are that precious, you should probably inline your subs. 

'$wait = 0 unless ($wait == abs($wait)); $wait = 34;'
'sub { my ($x) = @_; }->(q{abcdefghij})'

[download]

In Section Seekers of Perl Wisdom