use strict;
use warnings;

my %farbe;

my @marsupilamis = qw(Bobo Bibo Bibi);
my @farben = ('schwarz', 'gelb', 'gelb/schwarz getupft');

@farbe{@marsupilamis} = @farben;

# gewuenschte Reihenfolge
my @order = qw(Bibi Bibo Bobo);

print "Klassischer Ansatz:\n";

for (@order)
  { print "$_: $farbe{$_}\n"; }

print "\nHash-Slice:\n";
my @bind = @farbe{@order};

for (0 .. $#order)
  { print "$order[$_]: $bind[$_]\n"; }