Modification to read and write file script -- Adam

I have a script, thanks Adam, that reads a write to a file The file is pound (#) delimited and it contains a list of filenames and 5 sets of numbers, ie

Tom#$120,200#$154,001#$121,234#$234,123#$345,123
John#$123,200#$188,061#$134,254#$244,155#$333,133
Etc&

I need to do a few things:

Open this file and check is a previously set variable $input_file is any of the first field,
If  true check is another previously set variable, $figure is equal to any of the 5 sets of numbers.
If true print out a statement $figure is equal to previous figure

If not true pop off the first figure and write the new number to the end of the line.

For example

If the input file was Tom and the figure was 121,234, just a print out statement $figure is equal to previous figure

Or

For example if the input file was John  and the figure was $677,061,  the new line for John would be
John#$188,061#$134,254#$244,155#$333,133#$677,061



The Change I need is to add another field, one that would not be changed, much like the first field is not, ie

John#FATAL#$188,061#$134,254#$244,155#$333,133#$677,061





the script
my $dbfile="/temp_ee/dbfile.txt";


my $input_file="John";
my $figure='$677,061';

my @data;
my $found;

#Read data
open(IN, "$dbfile") or die "could not open input file: $!\n";
while(<IN>) {
      chomp;
      push @data, [split /#/];
      next unless $data[-1]->[0] eq $input_file;
      $found=$#data;
      for(my $i=1; $i<=$#{$data[-1]}; $i++) {
            if($data[-1]->[$i] eq $figure) {
                  print "$figure is equal to previous figure\n";
                  exit;
            }
      }
}
close(IN);

unless(defined($found)) {
      die "input_file '$input_file' not found\n";
}

#remove first number
print "Updating $input_file with $figure\n";
splice(@{$data[$found]}, 1, 1);
push @{$data[$found]}, $figure;

open(OUT, ">$dbfile") or die "Could not open output file: $!\n";
foreach (@data) {
      print OUT join("#", @{$_}) . "\n";
}
close(OUT);