sub direct(\$\$) {
   print $_[0] . "   " . $_[1] . "\n";
}

sub indirect($$) {
   my ($one, $two) = \(@_);
   print $one . "   " . $two . "\n";
}

my ($first, $second) = qw(Hi there);
print \$first . "   " . \$second . "\n";
direct $first, $second;
indirect $first, $second;
__END__
SCALAR(0x1823c78)   SCALAR(0x224f88)
SCALAR(0x1823c78)   SCALAR(0x224f88)
SCALAR(0x1823c78)   SCALAR(0x224f88)