@lcase=(a..z);
foreach $item(@lcase)
{
  if ($sw =~/1/)
  {
    push (@case,lc($item));
    $sw=0;
  }
  else
  {
    push (@case,uc($item));
    $sw=1;
  }
}
print @case;