As to how (after adding the missing ; from use strict):

$ perl -MO=Deparse file_containing_code_from_op
use strict 'refs';
&a;
sub b {
    use strict 'refs';
    print 'as';
}
sub a {
  use strict 'refs';
  print 'as';                                                   
}
[download]