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,$num1y,$num2x,$num2y) = ($1,$2,$3,$4);

         # Swap
         if ($num1x > $num2x)
         { $num1x ^= $num2x; $num2x ^= $num1x; $num1x ^= $num2x; }
         if ($num1y > $num2y)
         { $num1y ^= $num2y; $num2y ^= $num1y; $num1y ^= $num2y; }

         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)";
         }}
      }
   }
}