use Data::Dumper;

# .....

print Dumper [@hash{grep {$_ ne 'schema' && $_ ne 'log'} keys %hash}];