Select Code to Download

#!/usr/bin/perl -w
use strict;
...
<tag id="17">15</tag>
<tag id="6">179</tag>
<tag id="7">2</tag>

@data = sort by_tags @data;
        
...
                         or
              $tag_id_A <=> $tag_id_B 
}