Select Code to Download

...
Name=foo
Icon=bar
Categories=a;b;c
...

#!/usr/bin/perl -w
use strict;
...
    my $val = qq#prog "$collect{name}" $collect{icon} $collect{exec}#;

### More code follows

# 'categories' entry is 'GNOME;Games;Action'
push $out{GNOME}{Games}{Action}, $val;
# 'GNOME;Games;Action;FPS'
push $out{GNOME}{Games}{Action}{FPS}, $val;
# ...and so on.

    my @levels = split /;/, $collect{categories};
    for (0 .. $#levels) {
...

use Data::Dumper;
print Dumper($out);