use strict;

my %monitored_files;
%monitored_files = (
    "messages" => "/var/log/messages"
);

my $key;
foreach $key (keys (%monitored_files)) {
    open ($key, $monitored_files{$key}) or die " ! Could not open $key: $!";
    print(" * $key opened\n");
}