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

use Path::Tiny;

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

my @paths = split m{(?<=.)/}, $path;
for my $i (reverse 0 .. $#paths) {
    $paths[$i] = join '/', @paths[0 .. $i];
}
say for @paths;