my @D = map { sprintf($f[$_], $d[$_]) } 0..$#d;