@GRP1=(ravindkr,anandku,mparamas,anbarasr,subashin,prakasku,bsendray,pregunat,andccadm,nkhuntia,vdeshpan,dbalasub,rbalakri);
@GRP2=(awsdel,lpalanic,masubram,bpakanat,mshifan,asrajama,vidhyan,apatnayi,samallik,ikrishna,adityam,susajja,vramana,raghuran);
@GRP3=(mahendrd,ranantan,knittala,sathyam,bmallapr,skummara,prasantn,srivatss,ramack,dmurugap,pparichi,esettu,babuk,hpandura,brengana);
@GRP4=(thendraa,samarenb,slekkala,apatnayi,psundar,isivapra,pjayaram,sunandap,speriasa,raallaga,gelango,dchockal,ldash);
open(FH,"_today_data.txt") or die "can't open the file$!\n";
while($line=<FH>)
{
   chomp($line);
    @usr=substr($line,8,2);
    @time=substr($line,0,4); 
     @username=substr($line,16);         
      foreach $a (@username)
        {   
               @username1 = split(',', $a);
                print "@time\t @usr\t @username1\n";  
         }
 }