#!/usr/bin/perl

# https://perlmonks.org/?node_id=1216162

use strict;
use warnings;

my @trip =   ("Chicago", "Saint Looey", "Joplin", "OKC", "Amarillo", "
+Gallup",
            "Flagstaff", "Winona", "Kingman", "Barstow", "San Bernandi
+no", "LA" );

local $_ = join "\n", @trip;
printf "%15s to %-15s\n", $1, $2  while /^(.*)\n(?=(.*))/gm;

my @states =   ("IL", "MO", "MO", "OK", "TX", "TX",
                 "AZ", "AZ", "AZ", "CA", "CA", "CA" );

my %info = map { $trip[$_], { state => $states[$_] } } 0..$#trip;

use Data::Dump 'pp'; print pp \%info;

print "\n", $info{Joplin}{state}, "\n";
[download]

Outputs:

        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" },
}
MO
[download]