#!/usr/bin/perl

use warnings;
use strict;

sub updateStaedte {
    my $isEurope = shift;
    my @eu_staedte = qw(Berlin London Paris);
    my @am_staedte = qw(Chicago Dallas);
    if ($isEurope) {
        return @eu_staedte;
    } else {
        return @am_staedte;
    }
}

my @staedte = ();
my $isEurope = 1;
my $i;
@staedte = updateStaedte($isEurope);
print "$isEurope\n";
foreach $i (@staedte) {
    print "$i\n";
}
$isEurope = 0;
@staedte = updateStaedte($isEurope);
print "$isEurope\n";
foreach $i (@staedte) {
    print "$i\n";
}