use Carp;
use strict;

my %City = (
   name  => 'Constantinople',
   girls => ['Amy', 'Betty', 'Carla']
);
my ($oldCity, $timer, %You);

$timer = time;
sleep 10000000;
$oldCity = $City{name};
$City{name} = 'Istanbul';
unless ($City{name} eq 'Istanbul' && !($City{name} eq 'Constantinople') {
   carp 'Nope';
}
if ($timer > time + 1000) {
   unless ($oldCity eq 'Constantinople') {
      carp 'Nope';
   }
}
$City{moonlit_night} = 'Turkish delight';
foreach (@$City{girls}) {
   print $_ . " lives in Istanbul.\n";
   !($oldCity);
}
if ($You{date} eq 'Constantinople') {
   print "She'll be waiting in Istanbul.\n";
}

exit 0;

# Istanbul was Constantinople
# Now it's Istanbul, not Constantinople
# Been a long time gone, Constantinople
# Now it's a Turkish delight on a moonlit night
# Every gal in Constantinople
# Lives in Instanbul, not Constantinople
# So if you've got a date in Constantinople
# She'll be waiting in Istanbul.