我想创建一个行为就像数组一样的散列,即只有键而不是相应值的散列.示例如下：

my %FeedHash;
while(<CFG>)
{
    chomp($_);
    my @val=split(/:/,$_);
    chomp($val[0]);
    my $FeedId=$val[0];
    if(!exists $FeedHash{$FeedId})
    {
      print "\n$FeedId Feed is not present";
      $hash{$FeedId} = undef;
      mkdir "LoadReports/$FeedId" or die $!;                    
    }
    else
    {
       print '\nFeed is already present';
    }
}

正在给出消息：“Feed不存在”,即使对于第二次循环中的相同Feed id也是如此