Help for this page

Select Code to Download

Select or download this

foreach my $tags ( sort {
    (split /,/,$a)[1] <=> (split /,/,$b)[1]
} keys %tag ) {