#!/usr/bin/perl
sub foo(\@\$) {
    warn "foo args: (".join(",",map{"'$_'"}@_).")\n";
    print "1st argument = $_[0]; content =("
         . join(',',map{"'$_'"} @{$_[0]}).")\n";
    print "2nd argument = $_[1]; content = '".${$_[1]}."'\n";
    my ($array,$scalar) = @_;
    push @$array, $$scalar;
    $$scalar = "blurf";
} 
my @ary = qw(foo bar baz);
my $foo = "blah";

foo(@ary,$foo);

print "ary: (@ary)\n";
print "foo: $foo\n";

##</code><code>##

foo args: ('ARRAY(0x8167870)','SCALAR(0x8167978)')
1st argument = ARRAY(0x8167870); content =('foo','bar','baz')
2nd argument = SCALAR(0x8167978); content = 'blah'
ary: (foo bar baz blah)
foo: blurf