perl -MO=Deparse
{
  ; 7,10;
}
__END__
{
    '???', '???';    # <-- constants in a codeblock
}