#action to edit===

if ($action =~ /edit/) {
  my ($newline, $list);
  if ($action eq 'edit1') {
    $newline = join "\n", $job11, $job12, $job13, $job14, $job15;
    $list = $list1;
  } elsif ($action eq 'edit2') {
    $newline = join "\n", $job21, $job22, $job23, $job24, $job25;
    $newline = $newline . "\n";
    $list = $list2;
  } else {
    print 'Sorry - did not understand this behaviour, please hit the back button and try again';
    exit;
  }
    open FH, '>', "$list.tmp" or die "$list == $!";
    print FH $newline;
    close FH;
    
    print $newline;
    exit;

}