my $n = 2; $n *=2 until $n+0.5 == $n; $n *=2; print $n;