sub arb_scalars {
    eval "use vars qw/@{[map {'$'.$_} @_]}/;";
    warn $@ and return if $@;
    1;
}

arb_scalars qw/foo bar baz/;
{
    local $, = " ";
    print %::;
}