unlink $file or &oopsies($file);

sub oopsies
{
   print "Error!";
   push(@list, shift); #<-- heck, I've never tried using SHIFT like this- so intriguing I'm going to test that.
}