my %files = (
    dev    => [qw(testd.txt testd1.txt testd2.txt testd3.txt)],
    prod   => [qw(testp.txt testp1.txt testp2.txt testp3.txt)],
    report => [qw(testr.txt testr1.txt testr2.txt testr3.txt)],
    qptool => [qw(testq.txt testq1.txt testq2.txt testq3.txt)],
);

@flags = keys %files;