#! /usr/bin/perl

use strict ;
use warnings ;
$|++ ;

use Benchmark qw( :all ) ;

# Construct the test string.
our @arr ;
for ( 1..100_000 ) { push @arr, "foo, bar, zoot, blarg,\n" }

cmpthese( 10_000_000, { 'Mine' => \&mine, 'Yours' => \&yours } ) ;

sub mine
{
    local @arr ;
    return map { split /,\s*|\n/ } @arr ;
}

sub yours { # Roughly.
    local @arr ;
    my @word_list ;
    while ( @arr ) {
        chomp;
        push @word_list, split ", ";
    }
    \@word_list;
}