% perl -MO=Deparse -e 'use constant Y => "foo"; $x="bar"; return __PACKAGE__, $x, Y'

  sub Y () {
      package constant;
      $scalar;
  }
  $x = 'bar';
  return 'main', $x, 'foo';   # <=== inlined values at compile time...