Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    'Limited split'   => sub {my @refnos; for (@data){my @splitted = s
+plit(/~/,$_,3); push(@refnos,$splitted[1]);}},
    'Optimized split' => sub {my @refnos; for (@data){push @refnos, (s
+plit(/~/,$_,3))[1];}},
    });

                  Rate      Full split   Limited split Optimized split
Full split      23.1/s              --            -82%            -93%
Limited split    127/s            452%              --            -63%
Optimized split  343/s           1387%            169%              --