@ARGV = qw/a b c/;
print "uebergeben: @ARGV\n";
foreach my $a (@ARGV){
  # in $a ist jetzt jeder Wert von @ARGV
  print "Argument ist $a\n";
}
print "geblieben: @ARGV\n";