foreach $element (@list_of_Num_Extraction)
   {
      if ($element =~ m/^([0-9]+),([0-9]+)$/)
      {
         my $first_num     = $1;
         my $second_num    = $2;
         my $current_num   = ($first_num - 1)*$NumOfColumns + $second_num; 

         $Unique_Num_List{$current_num} = "($first_num,$second_num)";
      } 
      elsif ($element =~ m/^([0-9]+),([0-9]+):([0-9]+),([0-9]+)$/)
      {
         my $num1x = $1;
         my $num1y = $2;
         my $num2x = $3;
         my $num2y = $4;

         my $counter1 = 0;
         my $counter2 = 0;

         foreach $counter1 ($num1x .. $num2x) {
         foreach $counter2 ($num1y .. $num2y) {
            
            my $current_num   = ($counter1 - 1)*$NumOfColumns + $counter2;
            $Unique_Num_List{$current_num} = "($counter1,$counter2)";
            #print "$counter1 - $counter2 \n"; 
         }}
      }
   }