sub inflate
{
    my ($results) = @_;

    my %data;

    foreach my $results (@$results)
    {
        my ($mag, $issue, $article) = @{$results}{qw( mag_name issue_num article )};
        push @{$data{$mag}{$issue}}, $article;
    }

    foreach my $mag (keys %data)
    {
        $data{$mag}{article_loop} = map {
            issue_number => $_,
            article_loop => $data{$mag}{$_},
        } keys %{$data{$mag}};
    }

    return \%data;
}