use constant KERNEL => 0;
sub sub1 {
  $_[KERNEL] = 3; # modifies caller's version of arg
}
sub sub2 {
  my $kernel = shift; # copies arg
  $kernel = 3;  # does not modify caller's version
}