my $x = 0;
while ($x < 10) { # will print 0,1,...9
    print "x is now $x\n";
    if (!$x++) { #the first time it is 0, so false but the 
        # ! negates the condition to true
        print "and this was the first time\n";
    }
}