Select Code to Download

my %parent = ( 
    europe => [qw|
                london
...
                algiers
               |],
     );

sub fallover {
    my ($hash, $failure) = @_;
    my $list = delete($hash->{$failure}) or return;
...
        $i %= @targets;
    }
}