Select Code to Download

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

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