sub refd {
    print join( " ", \(@_) ), $/;
}
my @v= qw( a b c );
print "@v: ", join( " ", \(@v) ), $/;
refd( @v );
refd( $v[0] );
refd( @v[1,2,0] );
refd( "$v[1]" );