🚀 go-pugleaf

Hello again,
        I have another dillemma. I am using a splice function to delete
an old
entry in an array after creating a new one. Pretty basic as far as edit
functions go. 
        However, to delete an old entry you need to know its position in
the
array. I don't know how to figure out its position so I can delete it.
As a result other things are being deleted in the array this is a
problem.
        The code is included below. If anyone can help me on this, it
would be
appreciated. 
        The Post{'seek'} that you see passed as an argument is an
identifier of
a particular entry. It is actually a combo of letters & numbers joined
by '%&'. 

Regards,

Kuross Amri

sub edit_save   {

   my $new_entry;
   my (@info, $entry);
   my $location;

   print $header;
   print(-s $comments_datafile);                #check file

   open (FILE, "<$comments_datafile") or die "Couldn't Open Datafile:
$!";
   @info = <FILE>;
   close FILE or die "Couldn't Close $comments_datafile: $!";

#   print "$#info";                                     #check array for
contents

   $new_entry.=$Post{"seek"};                           #creating the
new entry to be parsed
   $new_entry.="%&";
   $new_entry.=$Post{"bob"};
   $new_entry.="\n";
         
   splice (@info, $Post{'seek'}, 1);                    #delete entry. 
   push @info, $new_entry;                              #add new entry  
   @info = sort (@info);                                #re-sorts the
file


   open (FILE, ">$comments_datafile") or die "Couldn't open
$comments_datafile: $!";
   print FILE @info;
   close FILE or die "Couldn't close $comments_datafile: $!";

   print "@info";                               #testing to see what is
in array 
   print "$new_entry";                          #testing contents of
$new_entry
   print $footer;
}