Select Code to Download

use warnings;
use strict;
...
        ."$to->{state}", $from->{state} ne $to->{state}
            ? " - Mann Act!" : (), "\n";
}

Chicago, IL to Saint Looey, MO - Mann Act!
Saint Looey, MO to Joplin, MO
...
Kingman, AZ to Barstow, CA - Mann Act!
Barstow, CA to San Bernandino, CA
San Bernandino, CA to LA, CA

use warnings;
use strict;
...
  "San Bernandino" => { state => "CA" },
  "Winona"         => { state => "AZ" },
}