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


# Hash mit erlaubten Werten:
my %logname = (
               Tester => [
                           "ABC1",
                           "BCD2",
                           "Multi",
                         ],
               Admin  => [
                           "DEF3",
                           "Crian", #;)
                           "Multi",
                         ],
              );

my $user_name = <>;
chomp($user_name);

#
# Bestimmen aller passenden Werte:
#
my @keys;
for my $group (keys %logname) {
    my @k = grep { $_ eq $user_name } @{$logname{$group}};
    push @keys, $group if scalar @k;
}

#
# Begrüßung mit passenden Gruppen oder Ablehnung:
#
if (scalar @keys > 0) {
    print "Willkommen ", join(', ', @keys), " $user_name!\n";
}
else {
    print "'$user_name', Sie sind dem System leider nicht bekannt.\n";
}