# modification to code you already have....
while( $file=readdir BIN ){
         push @array,$file; 
}