#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use File::Spec;

my $path = '/abc/def/ghi';

my @paths = 'File::Spec'->splitdir($path);
for my $i (reverse 0 .. $#paths) {
    $paths[$i] = join '/', @paths[0 .. $i];
}
shift @paths;  # Remove the empty path.
say for @paths;