use Data::Dumper;
my @names = qw ( web email stuff );
my @values = qw( 33 44 55 );
my $ref = { map { $names[$_] => $values[$_] } (0..$#names) };
print Dumper $ref;