for my $i (0 .. $#array -1) {
    print "$array[$i]*";
}
print $array[-1];