use strict;
use warnings;
use Test::More tests => 1;

$_ = "Anyway I suspect you cannot avoid them repeated: you are are in left side";
my @undef;
my ($key, $val);

($key, @undef[0..4], $val) = split(/\s+/, $_);
is ($val, 'them');