Select Code to Download

#! perl
use strict;
...
{
    return [ sort { (sort keys %$a)[0] cmp (sort keys %$b)[0] } @_ ];
}

16:56 >perl 1314_SoPW.pl
1..2
...
# Looks like you failed 2 tests of 2.

16:56 >