knoppix@Microknoppix:~$ perl -E '
> @numbers = ( 4, 7, 11, 14 );
> $start   = q{ 0 };
> say substr join( $start, q{}, @numbers ), 1;'
0 4 0 7 0 11 0 14
knoppix@Microknoppix:~$