use strict;
use warnings;

my %farbe;

# Einzelne Zuweisungen:
$farbe{'Bobo'} = 'schwarz';
$farbe{'Bibo'} = 'gelb';
$farbe{'Bibi'} = 'gelb/schwarz getupft';

# Weniger redundant:
($farbe{'Bobo'}, $farbe{'Bibo'}, $farbe{'Bibi'}) 
    = ('schwarz', 'gelb', 'gelb/schwarz getupft');

# Noch einmal reduziert:
@farbe{'Bobo', 'Bibo', 'Bibi'} 
    = ('schwarz', 'gelb', 'gelb/schwarz getupft');
    
my @marsupilamis = qw(Bobo Bibo Bibi);
@farbe{@marsupilamis} 
    = ('schwarz', 'gelb', 'gelb/schwarz getupft');

my @farben = ('schwarz', 'gelb', 'gelb/schwarz getupft');
@farbe{@marsupilamis} 
    = @farben;

foreach (keys %farbe)
  { print "$_: $farbe{$_}\n"; }

my %elder = ('Kokomiko' => 'gelb/schwarz getupft',
             'Mars'     => 'schwarz',
            );
$farbe{keys %elder} = values(%elder);

foreach (sort keys %farbe)
  { print "$_: $farbe{$_}\n"; }