use strict;

# beliebig skalierbares Array:
my @Politiker = qw(Merkel Steinmeier Seehofer Lafontaine Westerwelle); 
my %notes;

# Benotungen generieren
@notes{@Politiker} = map {6} @Politiker;

while( my ($politiker, $note) = each %notes)
  {
  print "$politiker: Note $note\n";
  }
print "\n";
%notes = ();

# Die Alternative fuer Lehrer:
my @Schueler = qw(Meier Huber Bauer Schulze);

@notes{@Schueler} = map { int(rand(6)+1) } @Schueler;

while( my ($politiker, $note) = each %notes)
  {
  print "$politiker: Note $note\n";
  }