for ($fori=0;$fori<1000000;$fori++)
{
...
  elsif (!exists $listage{$gs[$fori]} )
  {
     &decision($info);
   }
...
}