[oracle@june2 ~]$ cat a3.pl
my @allow_command=qw/ a1 a2 a3 a4/;
my $binary='a4';
if (grep m/$binary/,@allow_command ){print "11111111\n"};
[oracle@june2 ~]$ perl a3.pl
11111111
[oracle@june2 ~]$ cat a3.pl
my @allow_command=qw/ a1 a2 a3 a4/;
my $binary='a4';
if (grep m/$binary/,@allow_command ){print "11111111\n"};
[oracle@june2 ~]$ perl a3.pl
11111111