cascade $n = 1;
my $m = $n*2;
my $o = $m*2;
my $s = "$n $m $o\n";

print $s;

$n = 2;
print $s;
^d
1 2 4
2 4 8