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

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