#!perl -l

my %k;
$k{'A'} = 'Foo';
$k{'B'} = 'Bar';
$k{'C'} = 'Baz';

{
   # What goes for double-quotes...
   print "@k{qw(A B C)}";    # Foo Bar Baz
   local $" = '';
   print "@k{qw(A B C)}";    # FooBarBaz
}

{
   # ...also goes for the regexp operators.
   print qr/@k{qw(A B C)}/;    # Foo Bar Baz
   local $" = '';
   print qr/@k{qw(A B C)}/;    # FooBarBaz
}