Help for this page
my @new = split /\s+/, $item;
my($eleven, $fourteen) = (split /\s+/, $item)[10,13];