my$a=256;
for(my$b=1;$b<1E9;$b*=2)
{
  if($a==$b){print'Match!';last;}
}