Select Code to Download

               Rate 
filehandle_OO 484/s 
pushing       531/s 
filehandle    785/s 
concatenation 929/s

#!/usr/bin/perl

...
    'filehandle_OO' => \&filehandle_OO,
    'pushing'       => \&pushing
    } );