Here's a script that shows how to use stat to get what you're looking for and an example invocation.
$ cat fileperm
#!/usr/bin/perl
my $filename = 'fileperm';
my $mode = (stat $filename)[2];
$mode = $mode & 07777; # mask off file type;
my $usr = ($mode & 0700) >> 6;
my $grp = ($mode & 0070) >> 3;
my $oth = $mode & 0007;
printf "$filename has permissions %04o (%i,%i,%i)\n", $mode, $usr, $gr
+p, $oth;
$ ./fileperm
fileperm has permissions 0775 (7,7,5)
$ ls -l fileperm
-rwxrwxr-x 1 chicks chicks 289 Apr 21 11:32 fileperm