my $i;
while ($i<5)
{
$i++;
}