($a,$b)=split/ /,$data[$num];

It's generally a bad idea to use $a and $b a general variables in Perl programs. They are special variables that are used in sort routines and that's the only place where they should be used.