#! /opt/bin/perl

my $login="hallo";
my %ALL={};

if ($ALL{$login})
{
    print "a drinne $login\n";
}
else
{
    print "a nicht drinne $login\n";
}

if ($ALL{$login}{"aktiviert"} ne "")
{
    print "";
}
	    
if ($ALL{$login})
{
    print "c drinne $login\n";
}
else
{
    print "c nicht drinne - $login\n";
}