If you look at the docs for stat you will see that the first 2 elements returned from it are not the file size and mtime, but the device and inode numbers of the files. The perldoc for stat shows you which elements are returned in which order.
You probably want something like: