(bbfu) (hash slice) Re: Sorting hash values according to order of an array

[bbfu]

As an alternative to tadman's solution, you could also use a hash slice, like so:

# Everything else is the same as your original code
$sth->execute(@{$q{'-values'}}{@{$TABLES{$q{'-table'}}}});

# Or, a little more readably using temp vars:
my $table   = $q{'-table'};
my @columns = @{$TABLES{$table}};
my %values  = %{$q{'-values'}};

$sth->execute(@values{@columns});

bbfu
Black flowers blossum
Fearless on my breath