Try changing my $writer = param{'writer'}; and the other similar lines to

my $writer = $cgi->param('writer');. I think that will fix some of your problems.

Update: I also noticed this code:

foreach my $i (@old_reflection) {
  chomp($i);
  ($old_writer,$old_title,$old_text) = split(/\ :: /,$i);
  # this is the same as $count = $count + 1;
  my $count++;
}
[download]

Whilst, as your comment states, $count++ is the same as $count = $count _ 1;. By declaring $count within the for loop, it is scoped (see:Lexical scoping like a fox for a head start on understanding what this means. ) to the for loop. This means that it will get re-created each time around the loop with the net result is it will never take a value higher than one. Currently you do not seem to be making use of this value so it isn't affecting anything, but if you intend using it later on, you should probably declare the vaiable before the loop something like this:

...
my $count=0;
foreach my $i (@old_reflection) {
  chomp($i);
  ($old_writer,$old_title,$old_text) = split(/\ :: /,$i);
  # this is the same as $count = $count + 1;
  $count++;
}
....
[download]