my $string = "Hallo, Welt!\n";
sub print_out {
    print $string;
}

{
    my $string = "Wie geht es dir?\n";
    print_out();
}