Select Code to Download

use strict;
use warnings;
...
   map { $breadsIter->(), $_, $breadsIter->() } @numbers;

say $finalStr;

w 4 r i 4 f i 4 r w 7 f w 7 r i 7 f i 11 r w 11 f w 11 r i 14 f i 14 r
+ w 14 f