for ($results = 2; $results <34; $results++) {
                my $file="current".$presence.".res";
                ....
                }