Select Code to Download

use warnings;
use strict;
...

eval { print " browserUk F(): ".join (" ",mysort ukF({%$foo}))."\n"; }
+;
print $@ if $@;

      Required: aa cc dd ff hh jj kk ll mm nn oo pp
----------------------------------------------------------------------
+--
...
    main::ukg() => Use of uninitialized value in string ne at c:\temp\
+golf.pl line 32.
    main::ukh() => Use of uninitialized value in string ne at c:\temp\
+golf.pl line 34.
 browserUk F(): aa cc dd ff hh jj kk ll mm