use strict;
use warnings;

   my @numbers = (4,7,11,14);
   my $start='0 ';
   	
#print join ("$start" , @numbers),"\n";

print join ' ', map { 0, $_ } @numbers;

##</code><code>##

Not enough arguments for map at 910662.pl line 9, near "} @numbers"
syntax error at 910662.pl line 9, near "} @numbers"
Execution of 910662.pl aborted due to compilation errors.

##</code><code>##

print join ' ', map { ' 0 ' . $_ } @numbers;

##</code><code>##

 0 4  0 7  0 11  0 14