sub my_Sub{
    do-something-with-$_
    .
    .
}
find \&my_Sub, @directories;