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

##</code><code>##

foreach my $file (@files)
{
    if (<first case>)
    {
        push($filehash{"First Case"},$file); 
    }
    <further checks>
}