use v6;

my @paths = data();
my @dirs.push: $_.split('/') for @paths;    # A
#  @dirs.perl;                              # B
say $_.join('/') for @dirs;                 # C
my $depth = @dirs.map(*.elems).min;         # D

sub data
{
    my $text = q:to/END/;
        /aardvark/bison/camel/dromedary
        /aardvark/bison/camel/dromedary/elephant
        END

    return $text.lines;
}