求教大神关于perl语言中while循环的问题

代码错误，程序源代码如下:

main()
{
int i,j,k;
printf("\n");
for(i=1;i<5;i++)　　　　／*以下为三重循环汪圆*/
　for(j=1;j<5;j++)　
　　for (k=1;k<5;k++)
　　　{
　　　　if (i!=k&&i!=j&&j!=k) 　　　/*确保i、j、k三位互不相同*/
　　　　printf("%d,%d,%d\n",i,j,k);
　　　 }
}

main()
{
long int i;
int bonus1,bonus2,bonus4,bonus6,bonus10,bonus;
scanf("%ld",&i);
bonus1=100000*0.1;bonus2=bonus1+100000*0.75;
bonus4=bonus2+200000*0.5;
bonus6=bonus4+200000*0.3;
bonus10=bonus6+400000*0.15;
　if(i<=100000)
　　bonus=i*0.1;
　else if(i<=200000)
　　　　　bonus=bonus1+(i-100000)*0.075;
　　　　else if(i<=400000)
　　　　　　　　bonus=bonus2+(i-200000)*0.05;
　　　　　　　else if(i<=600000)
　　　　　　　　　　　bonus=bonus4+(i-400000)*0.03;
　　　　　　　　　　else if(i<=1000000)
　　　　　　　　　　　销瞎　　　bonus=bonus6+(i-600000)*0.015;
　　　　　　　　　　　　　else
　　　　　　　亏陵空　　　　　　　bonus=bonus10+(i-1000000)*0.01;
printf("bonus=%d",bonus);
}