#!/usr/bin/perl -w
# while_count.pl

while ($val < 5){
  print "$val\n";
  $val++;
}