foreach my $idx (0 .. scalar(@array)-1 ) {            $array[$idx].="|"           }