@a = sort { "000$a" <=> "000$b" } $y1, $y2 || $y1;
    for ( $a[0] .. $a[1] ) {