unlink $file or sub {
 print 'Error!';
 push @list, $file;
}->();