Got it! Thanks for the pointers :)
Code:
sub generate_file_hash(){
my $filename = shift;
$MASTERCOUNT++;
my @list = stat($filename);
if (@list) {
my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev,
$size, $atime, $mtime, $ctime, $blksize, $blocks) = @list...