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