my $capion=sprintf "%-20s%30s%10s%10s%10s%10s%10s%10s%10s",
      'Var1', "Var2", "Var3", 'Var4', 'Var5', "Var6", 'Var7', 'Var8','Var9';