while (defined(my $zeile = DATEN->getline)) 
{
    my ($USER, $FQDN, $OS, $PW) = split(/;/,$zeile);
    # ...
}