my @tests = grep { /^TEST/ } keys %$result;