warn $];                               #> 5.024001

$null = 1;
warn 'never' until $null = 666;
warn $null;                             #> 666 

$one = 1;
warn 'never' until my $one = 666;       # my !
warn $one;                              #> Warning: something's wrong at ...