Select Code to Download

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

#!/usr/bin/perl -w

...
foreach my $deal (@deals) {
  print map { $_->($deal) } @dereferenced_subs;
}