# New Ticket Created by Aleks-Daniel Jakimenko-Aleksejev # Please include the string: [perl #132306] # in the subject line of all future correspondence about this issue. # <URL: https://rt.perl.org/Ticket/Display.html?id=132306 >
Code: sub f1($a, $, $, $, $, $) { 1 }; my $s; $s += f1($_, $_, $_, $_, $_, $_) for ^1_000_000; say now - BEGIN now Result: 0.43209886 Code: sub f2($a, $b1, $b2, $b3, $b4, $b5) { 1 }; my $s; $s += f2($_, $_, $_, $_, $_, $_) for ^1_000_000; say now - BEGIN now Result: 0.6635439 None of the params are used but still replacing them with just $ makes things run faster. The difference is measurable and you can increase the number of loops to observe it even better. This ticket is motivated by a pull request which used that observation to speed things up in rakudo: https://github.com/rakudo/rakudo/pull/1196 This is Rakudo version 2017.09-375-ga0f29e0df built on MoarVM version 2017.09.1-594-gb9d3f6da implementing Perl 6.c.