#!/usr/bin/perl -w
use strict;
use Benchmark qw(cmpthese);
use vars qw($d $e @t);
$d = <DATA>;
my @e = split " ", $d;
$e= \@e;

sub sss {
        my $q=shift;
        return (split m/ /, $q)
}

sub aaa {my $q=shift; return @$q}

print $d,$/,sss($d),$/,aaa($e),$/;

cmpthese ( -10,
  {
    split=> '@t = sss($d)',
    arref=> '@t = aaa($e)',
  });
__DATA__
a b c d e f g h i j k l m n o p q r s t u v w x y z