Ich mache das mit stat (siehe perldoc -f stat), was Du mit -C (vgl. perldoc -f -X) machst. Gefällt mir einfach besser...

Der große Unterschied besteht aber in dem, was Du -C bzw. ich stat als Argument übergibst. Bei Dir ist $_ sicherlich leer... Und was Du in @_[1] (was sicherlich ein $_[1][ sein sollte) hast, hast Du auch nirgends beschrieben!