sub riuser { ##-> @userdat = riuser(id);  ready!!!
  my $uid = shift;
  my $dat = 'iuser.dat';
  open(DAT, "<$dat");
  my @daten = <DAT>;
  close(DAT);
  my @userdat;
  foreach(@daten) {
    my $einzln = $_;
    if($einzln =~ /^$uid.+/) {
      @userdat = split(/\*\*/, $einzln);
    }
  }
  return @userdat;
}