Como usar até loop em perl

perl até loop

# Basic syntax:
until( condition ) {
   code to run;
}

# Example usage:
$i = 5;
until( $i > 10 ) {
   print "Value of i: $i\n";
   $i += 1;
}
# Note, until loops are kind of the opposite of whiles loop, they loops over 
# 	the code until the condition becomes true