perl, локальные глоб переменные

 #я так понял это объявление глоб перем ?
 use vars qw($y, $x, $sheet);  
 use vars qw(@dropcat,@ignorewords);
        
 (@dropcat,@ignorewords) =(GetDropCats(), GetIgnoreWords() );
        
 openXls ();
      
 readXls ();

sub openXls
{
    ....   
    my $oExcel = new Spreadsheet::ParseExcel;    
    my $oBook = $oExcel->Parse($q->param('xls'));
    $sheet = $oBook->{Worksheet}[0];
    
    # вроде как sheet равен 0, хотя ображение 
    # $cellvalue = $sheet ->{Cells}[$x][$y]->Value;   
    # работает, как так ?
    print 'sheet='.$sheet.'<br />'; 
}

sub readXls
{

 #  тоже 0 
    print $sheet.'<br />';
    @_session = ( [], [] );
    
    while( условие )
      readCell(__LINE__);
...
}


скрипт работает, но почему $sheet = 0 ?
если просто зделать 
my $sheet1 = $oBook->{Worksheet}[0];
print $sheet1  - выводит hash(xxx)

почему тогда там ноль ???
не могу уснуть !!! ((((