#!/usr/bin/perl -P

#define Foo(a) {\
    local $, = " ";\
    print "defined: ", a, $/;\
}

my ($c, $d, @e, %f) = ('c','d',qw/all in e/);
@f{qw/all in f/} = @e;

Foo($c)
Foo($d)
Foo(@e)
Foo(%f)