my $b = 42;
$c = "Hallo world\n";

print "printing lexical $b\n";
print "printing global $c\n";