[perl #63994] for loop with optional second value should not care if the are not enough values

[via RT]

# New Ticket Created by  Gabor Szabo 
# Please include the string:  [perl #63994]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=63994 >


for (1,2,3) -> $a, $b? { say $a*$b }

throws exception on StopIteration as it runs out of values while the
$b was optional