use strict;
use warnings;

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

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