perl -MO=Deparse,-p -e 'sub foo {} sub bar {} &bar & &foo()'
    sub foo {
    
    }
    sub bar {
    
    }
    (&bar & &foo());