foreach my $key (@ordered) {
    ...