Help for this page
my @trip = ("Chicago", "Saint Looey", "Joplin", "OKC", "Amarillo", " +Gallup", "Flagstaff", "Winona", "Kingman", "Barstow", +"San Bernandino", "LA" ); map { printf "%15s to %-15s\n", @trip[$_..$_+1] } 0..$#trip-1;
Chicago to Saint Looey Saint Looey to Joplin ... Kingman to Barstow Barstow to San Bernandino San Bernandino to LA
subsequence(length=>3, step=>1, list=>\@trip);