how can i select each non empty files?? and transfer them out i follwed by !-z option but it doesnt work out

Your question is hard to follow but I'll try on it.

From guessing on your riddle, I'd think you should use the File:Copy module like here:

use strict;
use warnings;
use File::Copy;

my @files = qw(Ardbeg.txt Bowmore.txt Bruichladdich.txt Bunnahabhain.t
+xt
               Caol_Ila.txt Kilchoman.txt Lagavulin.txt Laphroaig.txt
               Port_Charlotte.txt);

my $given_path = '/tmp/allfiles';
my $some_otherpath = '/tmp/nonemptyfiles';

for my $f (@files) {
   if( -f "$given_path/$f" && ! -z "$given_path/$f" ) {
      copy( "$given_path/$f", "$some_otherpath/$f" )
   }
}
[download]

BTW: you should watch out for the path separators on your system. On Mac, its the : (column) and not the / (slash) as in Unix/Linux and probably Win32 (maybe you need even the \\ (backslash) for the latter, but I can't really believe this ;-).

Regards

mwa