Increment

#!/usr/local/bin/perl
$value = 0;
while (++$value <= 5) {
        print("value is now $value\n");
}
print("all done\n");