foreach my $ext (qw/pl cgi/)
{
   if(-e "$path/edit.$ext")
   {
      #...
      last;
   }
}