[perl #126858] infinite recursion with put and kinda recursive arrays

[via RT]

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


my @b; @b = @b, 1; put @b;

OUTPUT«Memory allocation failed; could not allocate 8192 bytes␤»