while ( 1 ) { 
  while ( @ARGV ) { # but how to give data to @ARGV when a script is running ?
   proc_somthing ( shift @ARGV ) ;
  } 
  sleep 1; 
}