Select Code to Download

map { printf  "%15s to %-15s\n", $_->[0],$_->[1]  } pairs @legs;
map { if ($info{$_->[0]}{state} ne  $info{$_->[1]}{state}) {say "Mann 
+Act!"}  } pairs @legs;
map { $info{$_[0]}{"state"}=$_[1] } pairs mesh @trip, @states;