#!/usr/bin/perl

use strict;
use warnings;

use Linux::Inotify2;

$|++;

my $inotify = new Linux::Inotify2
 or die "Unable to create new inotify object: $!";

@site_array = {"tmp1","tmp2","tmp3"};
foreach $site (@site_array)
{

$inotify->watch("/tmp/j".$site, IN_ACCESS | IN_CLOSE_WRITE, sub {
 my $event = shift;
 
 my $name = $event->fullname;
 
 print "$name was accessed\n" if $event->IN_ACCESS;
 print "$name is no longer mounted\n" if $event->IN_UNMOUNT;
 print "$name is gone\n" if $event->IN_IGNORED;
 print "$name is new\n" if $event->IN_CLOSE_WRITE;
 print "events for $name have been lost\n" if $event->IN_Q_OVERFLOW;
 print "jjjj\n";

 # $event->w->cancel;
}) or die "watch creation failed: $!";

}

1 while $inotify->poll;
[download]

Foreach is fine, but

use strict;
use warnings;



@site_array = {"tmp1","tmp2","tmp3"};
foreach $site (@site_array)
{
  print $site;
}
__END__
Global symbol "@site_array" requires explicit package name at - line 6
+.
Global symbol "$site" requires explicit package name at - line 7.
Global symbol "@site_array" requires explicit package name at - line 7
+.
Global symbol "$site" requires explicit package name at - line 9.
Execution of - aborted due to compilation errors.
[download]

Omitting strict temporarily, reveals

use warnings;

@site_array = {"tmp1","tmp2","tmp3"};
foreach $site (@site_array)
{
  print $site;
}
__END__
Odd number of elements in anonymous hash at - line 3.
HASH(0x225f14)
[download]

see perldata

Ah yes, should be parentheses instead of braces...thank you...