also funny:

my @count = qw/ 3 1 5 1 10 3 /;
my @list= my %rcount = reverse @count;
say "@list"
__END__
1 1 1 1
[download]

both cases seem to be fixed at least since 5.14.2, but I can't find anything in perldelta