note Vijay81 <p>Thanks Everyone. able to get just directory names using File::Basename. but can please someone show me how to store these basenames in some sort of array so that i can use them later part in the code.</p> Main script: <code> #! /usr/bin/perl use strict; use warnings; use File::Basename; use Data::Dumper; my $base_dir = 'C:Input/INT'; my @dir = $base_dir; my @dir_names; while (@dir) { my $dir = pop(@dir); opendir(my $dh, $dir); my $file; while($file = readdir($dh)) { next if $file eq '.'; next if $file eq '..'; $file = "$dir/$file"; if (-d $file) { push(@dir, $file); print basename($file); #@dir_names=basename($file); print "\n"; } else { } } } </code> getting output as : <code> CAD MH COi Dit WMp </code> Instead of that i need to store the directory base names in array say @dir_names and print them one by one like $dir_names[0] = CAD $dir_names[1] = MH $dir_names[2] = COi .. .. .. 1007640 1007640