use Data::Dumper;
my @usual = qw( data email stuff );
my @values = qw( 33 44 55 );
my %hash;
@hash{ @usual } = @values;
print Dumper \%hash;