for my $fori(0 .. 999999)
{
...
 elsif (!exists $listage{$gs[$fori]} )
 {
    decision($info);
  }
...
}