if(@files && ! scalar keys %tree){ $isChanged = 1; }else{ foreach my $file (@files){ $isChanged = 1 && last if( grep { $files_cached{'stats'}{$file}{$_} != $params->{'files'}{'stats'}{$file}{$_} } ('mtime', 'ctime', 'size') ); } }