Erreur script perl, déclaration d'un fichier

Bonjour,

j'ai une erreur dans mon script perl et je pense que sa vient de la déclaration de mon fichier "FIC1", si quelqu'un peut m'aidé a comprendre, voici mon code:

#!/usr/bin/perl -w
use warnings;
use strict;
my $q_conf="begin queue ($ARGV[1])\n";
my $fin= "END\n";
my $flag= 0;
my $i = 1;

open(FIC1,'configTemp.txt') || die ("Le fichier n'existe pas");

while(<FIC1>)
{
if($_ eq $q_conf)
{
$flag= 1;
}
if($flag eq $1)
{
print "Lecture : $_";
}
if($_ eq $fin)
{
$flag = 0;
}else{
next;
}

}
close(FIC1);

Et voici mon message d'erreur:

use of uninitialized value in string eq at script.pl line 24 <FIC1>

ma ligne 24 est mon 2eme if
if($flag eq $1)

merci d'avance.