Select Code to Download

one   two   three
four  five  six  
seven eight nine 
ten

use strict;

my @array = qw/one two three four five six seven eight nine ten/;
...
  }
  print join(' ', splice(@array, 0, $cols) ), $/;
}