my @array = qw/ zero one two three four /;
for ( my $i = 0; $i < $#array; $i++ ) {
    print $array[$i],$/;
}