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