foreach my $idx (0 .. $#array ) {
    $array[$idx] .= "|"
}