$ perl -w -Mstrict -MData::Dumper -e 'my $x; @{$x} = split /\s/, "the one true"; print Dumper($x)'
$VAR1 = [
          'the',
          'one',
          'true'
        ];