Select Code to Download

my $foo = 3;
my $bar = "keyword mania";
my @blivitz = "(some set of value);

my $bar = "keyword mania";
... (do something);
... (and something more);
...
    ...do something to the value in $bar (a global) with $foo (availab
+le only in the sub);
    return (something);
}