use vars '$foo';
$foo = 'foo';
{
    my $foo = 'bar';
    print "'$foo'\n";
}

##</code><code>##

use vars
    qw( $s_month $s_day $s_year $week_1 $week_2 $week_3 $week_4 );

requre schedule;

$s_day  = 2;
$s_year = 2000;
print "\$smonth is $s_month ,\$sday is $s_day, \$syear is $s_year\n";

##</code><code>##

use vars qw( %s @weeks );
%s = (
    month => 'Jun',
    day   => 21,
    year  => 2004,
);

@weeks = ( 'TEAM 1', 'TEAM 2', 'TEAM 3', 'TEAM 4' );