@cities = (Atlanta, Birmingham, Chicago, Memphis, "New York");
   
@states = (GA, AL, IL, TN, NY);
                                          
print "Cities: @cities" . "\n";
                                          
print "States: @states" . "\n";
                                          
splice @cities, (@cities-@states)+1, 0, shift @states for 0 .. @states-1;

print "@cities" . "\n";