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