my($foo, $bar, $baz) = qw/ one two three /;

## note the use of parens and *not* curly braces
## as they create an *anonymous hash reference*
my %hash = (
  key1 => $foo,
  key2 => $bar,
  key3 => $baz,
);

print $hash{key1};

__output__

one