#!/usr/local/bin/perl
use strict;
use warnings;

my $var = 0;
until($var < 4){
print "$var\n";
$var++;
}