$i = 5;
while ($i) {
     print --$i;
}