http://www.perlmonks.org?node_id=284631


in reply to label usage

Try changing 
%labels=('1=>a',
         '2=>b',
         '3=>c');

[download]
to 
%labels =( 
          1=>'a',
          2=>'b',
          3=>'c');

[download]
Also, I recommend turning on warnings and strict.
--
bm

In Section Seekers of Perl Wisdom