#!/usr/bin/perl -W

use strict;
use warnings;

use feature 'say';

say 'one' until my $one = 1;

say $one;    ############# this is line 10

until (my $two = 2) {
    say 'two';
}

say $two;