Perl grep ( grepping a line before the pattern match)

($inp=$ARGV[0]) || chomp($inp=<STDIN>);
open("FILE","/etc/passwd");
@s=<FILE>;
foreach $line (@s)
{
$x++;
if( $line=~/$inp/)
{
$d=$x;
}
}
$d=$d-2;
foreach $line (@s)
{
$y++;
if($y==$d)
{
print $line."\n";
}
}