#!/usr/bin/perl
use strict;
use warnings 'all';

# hash definieren
my %h = (
    a => 1,
    b => 2,
    c => 3,
);

# und hier die zuweisung, die die Warnung erzeugt
my( $a, $b, $c ) = @h{qw'a b c'};