The ugly fix - after my @layouts = map { $_, $pub->{$_}->{'name'} } sort { $pub->{$a}->{'name'} cmp $pub->{$b}->{'name'} } grep { my $tmp = $_ ; /^\d+$/ && $pub->{$_}->{'type'} eq "layout" && LJ::S2::can_use_layer($u, $pub->{$_}->{'uniq'}) && ($_ = $tmp) } keys %$pub;