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

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