splice @cities, (@cities-@states)+1, 0, shift @states for 0 .. @states-1;

##</code><code>##

for ( 0..@states-1 ) {
   splice @cities, ( @cities-@states)+1, 0, shift @states;
}

##</code><code>##

for ( 0..@states-1 ) {
   my $state = shift @states;
   splice @cities, ( @cities-@states)+1, 0, $state;
}


##</code><code>##

@citystates = map { $cities[$_], $states[$_] } (0..@cities-1);