#! /usr/bin/perl

use strict ;

my @s = qw/ foo bar foobar FOO BAR FOOBAR / ;

{
    my $count = 0 ;
    foreach my $e ( @s )
    {
        print $count++, ": $e\n"  ;
    }
}

# $count is no longer in scope.