my @numbers = (4,7,11,14);
   my @numbers2= @numbers;
   my @numbers3= map {"$numbers[$_]$numbers2[$_]"} 1..$#numbers ;
   # result 447711111414
   my $white ='w ';
   my $rye =' r ';
   my $italian = 'i ';
   my $french = ' f ';
 
WANT THIS
$final_string = 'w 4 r i 4 f i 7 r w 7 f w 11 r i 11 f i 14 r w 14 f';