use strict;
use warnings;

use File::Spec qw( );
use IO::Dir    qw( );

my $dir  = 'E:\\Documents and Settings\\ebrine';
my $cell = File::Spec->catfile($dir, 'Cell.txt');

my %area_codes = map { /(\d+)/; $1 => File::Spec->catfile($dir, $_) }
                 grep /^\d+\.txt\z/i,
                 IO::Dir->new($dir)->read();

my $num;


... Tk code ...

    
sub search {
   my $found = 0;
   my @number = split(/-/, $num);
   my $search_text = join '', @number;

   my $file = $area_codes{$num[0]};
   if (defined $file) {
      open(my $fh, '<', $file)
         or die("Unable to open file for areacode $num[0]: $!\n");

      $found = search_file($fh, $search_text);
   }

   if (not $found) {        
      open(my $fh, '<', $cell)
         or die("Unable to open file for cellphones: $!\n");

      $found = search_file($fh, $search_text);
   }

   ... Show results ...
}


sub search_file {
   my ($fh, $search_text) = @_;
   
   while (<$fh>) {
      return 1 if index($_, $search_text) >= 0;

      ... Update ticker ...
   }

   return;
}