my $a=123;
my $b="a ist $a";
$a=321;
print $b;