Учитывая следующий код

#!/usr/bin/perl

use Data::Dumper;

my %hash;
my @colos = qw(ac4 ch1 ir2 ird kr3);

foreach my $colo (@colos) {
    if(exists $hash{output}{$colo}) {
        print "$colo is in the hash\n";
    }
}

print Dumper(\%hash);

У меня есть пустой хэш, который создан. У меня есть массив с несколькими сокращениями в нем. Если я перебираю массив, чтобы посмотреть, есть ли эти парни в хэше, в STDOUT ничего не отображается, что ожидается, но по какой-то причине создается $ hash {output}. Это не имеет смысла. Все, что я делаю, это если существует. Где я неправ?