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

use 5.010;
use Data::Dumper;

# deine Datenstruktur; Werte für name und id angepasst
my $VAR1 = [
        {
                'name' => "name1",
                'key' => 'wert',
                'self' => 'wert',
                'projectTypeKey' => 'wert',
                'id' => 'id1',
                'expand' => 'wert',
                'avatarUrls' => {
                        '16x16' => 'wert',
                        '32x32' => 'wert'
                },
                'projectCategory' => {
                        'self' => 'wert',
                        'description' => 'wert',
                        'name' => 'wert',
                        'id' => 'wert'
                }
        },
        {
                'name' => "name2",
                'key' => 'wert',
                'self' => 'wert',
                'projectTypeKey' => 'wert',
                'id' => 'id2',
                'avatarUrls' => {
                        '32x32' => 'wert',
                        '16x16' => 'wert'
                },
                'expand' => 'wert',
                'projectCategory' => {
                        'id' => 'wert',
                        'self' => 'wert',
                        'description' => 'wert',
                        'name' => 'wert'
                }
        },
        {
                'name' => "name3",
                'key' => 'wert',
                'self' => 'wert',
                'projectTypeKey' => 'wert',
                'id' => 'id3',
                'expand' => 'wert',
                'avatarUrls' => {
                        '32x32' => 'wert',
                        '16x16' => 'wert'
                },
        },
];

# iteriere durch @$VAR1 und erzeuge neue Zuordnung zwischen Name und ID
my %name_id = map { $_->{name} => $_->{id} } @$VAR1;

# Kontrollausgabe
say Dumper( \%name_id );