you are just printing empty lines instead of the content of the arrays.

update

Plz be aware that you are excluding any file or dir starting with a dot.

use strict;
use warnings;

use Data::Dump qw/pp/;

my $path="/tmp";
opendir ( DIR, $path ) || die "Error in opening dir $path\n";

my (@file,@dir);

while (my $filename=readdir(DIR)) {
  next if ($filename =~ m/^\./);
  if (-f $filename) {
    push(@file,$filename);
    # print "\n";
  } elsif (-d $filename){
    push(@dir,$filename);
    # print "\n";
  }
}

pp \@file,\@dir;
[download]

plz tell me wer im doing wrong

$path="D:/Chanti";
opendir ( DIR, $path ) || die "Error in opening dir $dirname\n";

#//print "directory contains-->@arr";

while($filename=readdir(DIR)){
print "$filename";
 if (-f $filename){
     push(@file,$filename);
  }
 if (-d $filename){
     push(@dir,$filename);
 }
}



print "Directory--->@dir\n";
print "\n";print "\n";print "\n";print "\n";print "\n";print "\n";
print "File---->@file\n";
[download]

> plz tell me wer im doing wrong

well use strict and use warnings would show you that $dirname doesn't exist.

what else do you think is "wrong" in the result?

Cheers Rolf

( addicted to the Perl Programming Language)