use vars qw/$scalar @array %hash/;とour ( $scalar , @array , %hash );は同じと考えてOKですか？