Each row looks like this:

while ( $sth->fetchrow()  ) {
    push @classes, {
        class      =>      $class,
        department =>      $department,
        count      =>      $count
    };
}
[download]

The structure my template needs looks like this:

@departments = (
    {
        department => "v6"
        classes => [
            {
                class      => "Chemistry",
                department => "v6",
                count      =>  18
            },
            {
                class      => "German I",
                department => "v6",
                count      => 27
            },

           etc ...
        ]
    },
    {
        department => "h4"
        classes => [
            {
                class      => "French II",
                department => "h4",
                count      => 9
            },

            etc ...
        ]
     },

     etc ...
);
[download]

Now, to get to the point; I'm using the following to get what I want:

my %departments;
push @{ $departments{ $_->{department} }{classes} }, $_ foreach (@clas
+ses);

my @departments = map {
    $_->{department} = $_->{classes}[0]{department}; $_
} values %departments;
[download]

And it works, but.... it just rubs me the wrong way (take that Christina Aguilera!). It's icky. I don't like that temporary hash very much.

Is there a more efficient/prettier way of getting what I want? I'm not really aiming for high-performance, since the query I'm using will never return over a 1000 records, but I'm curious...

Thanks.

[ar0n]