Select Code to Download

301609239    kitchen
114672573 study room
20531742    living room
89242146    terrace
301781720    balcony

ABCDE
                                                                      
+                                                                     
+                                     
+P237S    S{301609239}                                                
+                                                                     
+                                                                     
+          
...
+G135S    S{147902132}    S{47224534}    S{125864042}    S{107921834} 
+                                                                     
+                                                                     
+                                             
+T307A    A{224050516}    A{126333615}                                
+                                                                     
+                                                                     
+                      
+L217F    F{149632297}    F{147902132}

ABCDE
                                                                      
+                                                                     
+                                     
+P237S    S{kitchen}                                                  
+                                                                     
+                                                                     
+        
...
+G135S    S{147902132}    S{47224534}    S{125864042}    S{107921834} 
+                                                                     
+                                                                     
+                                             
+T307A    A{224050516}    A{126333615}                                
+                                                                     
+                                                                     
+                      
+L217F    F{149632297}    F{147902132}

#!/usr/bin/perl -w

my $data = 'reference.txt'; 
...
                        
                    }
}