# perl -MO=Deparse,-p -e 'tied( sub {}->() )'
tied({sub {

}
}->());
-e syntax OK

##</code><code>##

tied(
  {
    sub {}
  }->()
);

##</code><code>##

<c>
tied(
  (
    sub {}
  )->()
);