my ($x, $val);
$x = 0;

while ($x < 5) {
    $val = $x + 2;  #same old variable every time

    say $val;
    $x++;
}