Select Code to Download

my @fields = qw( name email );
my %results;
@results{@fields} = ();

use strict;
use warnings;
...
          'email' => undef,
          'name' => undef
        };