while(@inf=<IN>)
{
 if(i%2==1)
{
$inf[i]=reverse $inf[i];
}
}