While statement

#!/usr/local/bin/perl

$count = 1;
$done = 0;
while ($done == 0) {
        print ($count, "\n");
        if ($count == 10) {
                $done = 1;
        }
        $count = $count + 1;
}