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:
($size,$mtime)=(stat($filename))[7,9];