use warnings;
use strict;
use Data::Dump;
use List::Util 'pairs';
use List::MoreUtils 'mesh';

my @trip = ("Chicago", "Saint Looey", "Joplin", "OKC", "Amarillo",
	"Gallup", "Flagstaff", "Winona", "Kingman", "Barstow",
	"San Bernandino", "LA");
my @states = ("IL", "MO", "MO", "OK", "TX", "TX",  "AZ", "AZ",
	"AZ", "CA", "CA", "CA" );

my @legs = map {@trip[$_,$_+1]} 0..$#trip-1;
printf "%15s to %-15s\n", $_->[0], $_->[1] for pairs @legs;

my %info;
$info{$_->[0]}{state} = $_->[1] for pairs mesh @trip, @states;
dd \%info;

__END__
        Chicago to Saint Looey    
    Saint Looey to Joplin         
         Joplin to OKC            
            OKC to Amarillo       
       Amarillo to Gallup         
         Gallup to Flagstaff      
      Flagstaff to Winona         
         Winona to Kingman        
        Kingman to Barstow        
        Barstow to San Bernandino 
 San Bernandino to LA             
{
  "Amarillo"       => { state => "TX" },
  "Barstow"        => { state => "CA" },
  "Chicago"        => { state => "IL" },
  "Flagstaff"      => { state => "AZ" },
  "Gallup"         => { state => "TX" },
  "Joplin"         => { state => "MO" },
  "Kingman"        => { state => "AZ" },
  "LA"             => { state => "CA" },
  "OKC"            => { state => "OK" },
  "Saint Looey"    => { state => "MO" },
  "San Bernandino" => { state => "CA" },
  "Winona"         => { state => "AZ" },
}