use strict;
use warnings;

use Benchmark qw( cmpthese );

my @strings = qw(
  USERID1|2215|Jones|
  USERID1|1000|Jones|
  USERID3|1495|Dole|
  USERID2|2500|Francis|
  USERID2|1500|Francis|
);

cmpthese(
    1_000_000,
    {
        outside => sub {
            my ( $x, $y, $z );
            for (@strings) {
                ( $x, $y, $z ) = split /\|/;
            }
        },
        inside => sub {
            for (@strings) {
                my ( $x, $y, $z ) = split /\|/;
            }
        }
    }
);