Select Code to Download

my %hash = ( foo => 1, bar => 2, baz => (), qux => 3);
print keys %hash;

my %data  = (

...
'home_phone'=>scalar $cgi->param('user_home_phone'),
'work_phone'=>scalar $cgi->param('user_work_phone'),
);

my %data = ('email' => 'user_email', 'name' => 'user_name',
            'cell_phone' => 'user_cell_phone', 'home_phone' => 'user_h
+ome_phone',
            'work_phone' => 'user_work_phone');
$_ = $cgi->param($_) for values %data;