for $tmpfilename (@files)
{
  defined(my $size = -s $tmpfilename) or warn("can't stat $tmpfilename"), next;
  ...
}