#!/usr/bin/perl -w

@file=`find * -type d`;
foreach (@file) {
    `cd $_;/somepath/foo`;
}

##</code><code>##

$foo=`ls -d *`;
@file = split'',$foo;