Böse Überraschung auch in Perl ;-)

[hotti]

hi,

weil's grad mal passt, auch in Perl heißt es aufgepasst:

  
my @ary = (0..9);  
foreach my $d(@ary){  
  $d = 'Hugo' if $d == 7;  
}  
print join("\n", @ary), "\n";  

Ausgabe:
0
1
2
3
4
5
6
Hugo
8
9

Nurmalso nebenbei...
Hotti (vom Krankenbett)