my @D = MapCarE { sprintf($_[0],$_[1]) } \@f, \@d;