my $x = 0;
do {
    my $y = $x + 3;
    print "$x => $y\n";
    $x++;
} while ($x < 10);