Select Code to Download

my %filehash = ("First Case"=>[],
    "Second Case"=>[],
    "Third Case"=>[],
    "Fourth Case"=>[]);

foreach my $file (@files)
{
...
    }
    <further checks>
}