use strict;
use warnings;
use Data::Dumper;

my %hash;
my @value = (qr/^foo /, qr/bar$/);
my @key   = qw(foo bar);

@hash{@key} = @value;

print Dumper \%hash;