Statement Perl

#Format: Expression2 until Expression1;
$x=1;
print $x++,"\n" until $x == 5;