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


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

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

#
# Dieser Codeblock testet, ob "Tester" oder "Admin" eingegeben wurde:
#
if (exists $logname{$user_name}) {
    print "Hallo $user_name!\n";
}
else {
    print "Sie sind nicht bekannt\n";
}

#
# Dieser Codeblock testet, ob "ABC1" oder "DEF3" eingegeben wurde:
#
my @keys = grep { $logname{$_} eq $user_name } keys %logname;
if (scalar @keys > 0) {
    print "Willkommen $keys[0] $user_name!\n";
}
else {
    print "Sie sind nicht bekannt\n";
}