as was pointed out earlier, you're throwing away the error message. If you want to show "here1:", try:

sub save_subsrbr {
   my @errors = qw(incorrect wrong);
   
   if (@errors) { 
      my $err = errorhandler (\@errors);
      return "$err, here2: " . Dumper(@errors);
   }
}
[download]