sub FillCmd {



my ($step) = shift;
my ($thrd) = shift;	
my ($refCmd) = shift;
# my $comando =	sprintf("AGSUI:IMSI=260000600%03d%03d,EKI=12345678901234567890123456789012,KIND=325,A3A8IND=4,A4IND=2;", $thrd, $step);  
                # push @$refCmd, $comando;    
my   $comando =	sprintf("HGSUI:IMSI=260000600%03d%03d,MSISDN=49600%03d%03d,PROFILE=3;", $thrd, $step, $thrd, $step);        
                push @$refCmd, $comando;          
   $comando =	sprintf ("HGSUE:MSISDN=49600%03d%03d;", $thrd, $step, $thrd, $step); 
                push @$refCmd, $comando;           
   

}