print join ",", map { &{$field_info{$_}{format}}($deal) } @fields;

##</code><code>##

my @field_subs = map {$field_info{$_}{format}} @fields;
# TIME PASSES
print join ",", map {$_->($deal)} @field_subs;