Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl -l

...
my $re = '^US.+?(?:' . join('|' => @ValidLocations) . ')';
my @valid_us_people = map { @{$ref->{$_}} } grep { /$re/ } keys %$ref;
print "@valid_us_people";

Select or download this
```
John Chuck Ram Lynda Ken Josh Matt
```