(undef, undef, $mode, undef, $uid, $gid) = stat $file;

##</code><code>##

($mode, $uid, $gid) = ( stat $file )[2,4,5];