Select Code to Download

foreach $key(keys %tagcorpus){
    print "\n$key";
    return($key);
}

undef %h; 
@h{'a'..'m'}=1..13;
...
# Now we have reached the end of the list, wrapped and are starting ag
+ain
# But the first one we get this time is 'w' rather than 'e' that we go
+t first time
# And it isn't 'a' in either case.