use warnings; use strict;
my @array = 1..20;
$_ = 'xxx';
print "before: $_\n";
for (@array) { print "Zahl: $_\n" }
print "after: $_\n";