$n = 1;
$m = $n*2;
$o = $m*2;
$s = "$n $m $o\n";
print $s;
$n = 2;
print $s;
^d
1 2 4
2 4 8