my $filename="/usr/local/bin/perl";
my $accu="";
my $nb=0;
map{$nb++;$accu.="/".$_;print "$nb. $accu\n";} split(/\//, $filename);