Select Code to Download

$n =  scalar( split ',', $str );
print "$n\n";

use strict;
use Benchmark qw/timethese cmpthese/;
...
    my $n = scalar split ',', $str;
    #print "$n\n";
}

Benchmark: timing 10000 iterations of split_anonymous, split_simple...

...
                 Rate split_anonymous    split_simple
split_anonymous 525/s              --            -17%
split_simple    634/s             21%              --