grepping particular range of line in a file ( perl)

#!/usr/bin/perl
$start=$ARGV[0];
$end=$ARGV[1];
$filename=$ARGV[2];
chomp($start);
chomp($end);
open(FILE,"$filename");
@file=<FILE>;
close(FILE);
for($i=0;$i<@file;$i++)
{
if ( $file[$i] =~ /$start/ )
{
$x=3;
}
if ( $file[$i] =~ /$end/ )
{
$x=1;
}
if (( $x == 3)||( $x == 1 ))
{
print $file[$i];
if ( $x == 1)
{
$x=10;
}
}
}

USAGE:- perl  filename mysql postfix /etc/passwd