unless ( defined $information->{project} ) { my ($source) = map { $_->{project} } $information; return $source; } else { print STDERR "Es ist ein Fehler aufgetreten!\n"; exit 1; }