sub filetohash {
...
    return \%filehash;
}
...
    push @aoh,filetohash($file);
...