Since the following code works correctly, in my eyes it is a bug:

H:\>perl
use strict; use warnings; use 5.006_001;
my %h = ("v1", 1);
print foreach (sort keys %h);
^Z
v1
H:\>
[download]

Best regards,
perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8.8.8.32.11.32"