sub sql_hash {
    my ($dbh,$sql) = @_;
    my $sth = $dbh->prepare($sql);
    $sth->execute() or die "Failed to execute SQL '$sql'\n";
    my @data;
    while (my $p = $sth->fetchrow_hashref) {
        push @data, $p;
    }
    my @sorted = sort { $a->{'name'} cmp $b->{'name'} } @data;
    return \@sorted;
}