#!/usr/bin/perl -w
use strict;
use warnings;

my $fname = '/usr/local/bin/perl';
my @fname_parts = split /\//, $fname;

# Start at 1 to skip blank directory part (chunk before /usr),
# and @fname_parts-2 to leave off the final chunk (program name)
for my $i (1 .. @fname_parts-2) {
        print "$i. ", join('/', @fname_parts[0..$i]), "\n";
}