#!/usr/bin/perl
#
#
#
#
$filename='she.txt';
#
use strict;
use Tie::File;

my $cnt = 0;

open(FILE, "she.txt") or die "$!";
while(<FILE>) {
    if ($_ =~ /^she/) {
         &del($cnt);
    }
     $cnt++;
}

sub del {
   
     my $dex =  $_[0];
   
     tie my @file, "Tie::File", "she.txt";
    splice @file, $dex, 1;
    $cnt--;
}