You can also fiddle with the list separator:

@numbers=(4,7,11,14);
{local $"=' 0 ';print"0 @numbers"}
[download]