#User;LoginName;FullName;Description;Password;Profile;DefaultLibrary;State
$cfg[0] = "User;$line[2];$line[1];Default account for $line[1];$line[3];VIEWER;;";

#Acl;Name;Description;Users
$cfg[1] = "Acl;$line[1];Default access list for $line[1];$line[2]#Support";

#Folder;Name;Description;Scope;Reports;Owner;Parent
$cfg[2] = "Folder;$line[1];Default folder for $line[2];$line[1];;administrator;/Customer_SLA";
##</code><code>##

foreach $line (@file) {
  @line = split(/;/,$line);
  require "account.cfg";
  print $cfg[0];
  foreach $cfg ( @cfg ) {
     push( @topol, $line[0].";".$cfg );
  }
}