[perl #127621] bizarre usage ouput for sub MAIN($foo,*%) { }

[via RT]

# New Ticket Created by  Lloyd Fournier 
# Please include the string:  [perl #127621]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=127621 >


perl6 -e 'sub MAIN($foo,*%) { }'

Usage:

  -e '...' [--<(HANDLED) Start argument to substr out of range. Is: 1,
should be in 0..0; use *1 if you want to index relative to the end
  in block <unit> at -e line 1
>=...] <foo>