$registry->$_( shift(@_) )
^^^^^^^^^^^  ^           ^............invoke a method
           ^^             ............the name of which is stored in $_
              ^^^^^^^^^^  ............passing the next value from @_ as an argument.