my $n = 3;
my $counter = 1;
for(split(/\n/,$values)){
  print $_, $counter % $n == 0 ? "\n" : "\t";
  $counter++;
}