sub funktion{
    my ( %A, %B, %C );
    $A{1} = "Hugo";
    $B{1} = "Schmitt";
    $C{1} = "Vorsitzender";

    return (%A, %B, %C);
}

my (%a, %b, %c) = funktion ();