sub print1 { print NULL "hallo"; }
   sub print2 { print NULL " pq "; }
   sub print3 { print NULL ":-)\n"; }

   open NULL,'>>','/dev/null';

   Benchmark::cmpthese(-1, {
      'mit subs'   => sub { print1(); print2(); print3(); },
      'ohne subs'  => sub { print NULL "hallo"; print NULL " pq "; print NULL ":-)\n"; }
   });

   close NULL;

               Rate  mit subs ohne subs
mit subs   558545/s        --      -68%
ohne subs 1754392/s      214%        --