use Devel::Peek qw( Dump );

sub f {
   Dump( $_[0] );
   # ...
}

my $x = "abc";
Dump( $x );
f( $x );            # Only a "C pointer" copied onto the stack.