Hmm. On Solaris I get:

somebox> touch /usr/bin
touch: cannot touch /usr/bin: no write permission
[download]

So...perhaps your AIX "touch" command is set-uid root and so your perl proggie can leech off this privilege to do the job?

I imagine that there isn't really a way around this other than using unix groups...