my $valstring = join("|", @valarray);
my @elems;
push @elems, substr($valstring, 0, 100, "") while length $valstring;