Listen erzeugen.

#!/usr/bin/perl -w
# Listen erzeugen

use strict;
{
   my @a = ("quick", "brown", "fox");

   print @a,"\n";
   print "@a\n";
   
   my $alle_a=join(",",@a);
   print "$alle_a\n";

   @a = qw(Why are you teasing me?); # = ("Why", "are", "you", "teasing", "me?");
   print "@a\n";
   print @a;

   print "\n";

   #my @lists = ('just one thing' , ("mother", "father"), qw(Mutt Jeff) , qw(Peter Paul Mary), 'To our parents', 'Mother Theresa', 'God' , 'pastrami', 'ham and cheese', 'peanut butter and jelly', 'tuna');         

   my @lists = (
             'just one thing', ("mother", "father"),
             qw(Mutt Jeff) ,
             qw(Peter Paul Mary),
             'To our parents', 'Mother Theresa', 'God' ,
             'pastrami', 'ham and cheese', 'peanut butter and jelly', 'tuna'
            );
         
   print "@lists\n";
   
   my $elem;
   foreach $elem (@lists){
      print "---> $elem\n";
   }

   print "########################\n";
   foreach (@lists){
      print ">>> $_\n";
   }

   my $i;
   print "########################\n";
   for ($i=0; $i<scalar(@lists); $i++){
      print "$i:$lists[$i]\n";
   }
}