Select Code to Download

#!/usr/bin/env perl -l

...
        push @$current, { $continent => [ @{$_->{$continent}} ] };
    }
}

*** Starting State ***
[
...
  { Africa => ["Cairo", "Algiers", "Moscow", "Tokyo"] },
]