foreach my $elem ( @array ) {
           $elem .= "|";
          }