my $value = "four";
my @array = ( "one", "two", "three" );

foreach $value (@array) # note outer $value variable
{
    print "foreach value: $value\t";
    function();
    sub function {
        print "function value: $value\n";
    }
}
__END__
foreach value: one      function value: four
foreach value: two      function value: four
foreach value: three    function value: four