Am I doing this right?

Here's a couple of ways you can go:

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

or

# a slightly different play....
# delete the while loop altogether and...
@array = readdir BIN ;
[download]

Keep in mind you are going to have the "." and ".." directory entries (current working directory and parent directory respectively) in your list and you need to have logic to eliminate those.