test2.p6

my %results;
for ^10 {
    %results{$_}<bytes> = (1..10).pick;
}
say %results.perl;
say %results.keys.sort({
    my $c = %results{$^a}<bytes> cmp %results{$^b}<bytes>;
    if $c {
        $c;
    }
    else {
        $^a.Int cmp $^b.Int;
    }
});