Cool, but it coredumps on 5.8.0.
(but I guess it is more related to the perl version than to your code :-) ).
On 5.6.1 it works OK.