#! /usr/bin/perl
$dir = "/root/dir";
opendir(BIN, $dir) or die "Can't open $dir: $!";
while( defined ($file = readdir BIN) ) {
    @array = #####now I am stuck!!!!!!

}