@f = qw(a b c d e f g h); $f[3] = undef; print join('-', @f), $/; __OUTPUT__ a-b-c--e-f-g-h