my $blah = join('|', @array);