my @field_subs = map {$field_info{$_}{format}} @fields; # time passes.. print join ",", map $_->($deal), @field_subs; print "\n";