my @bases = map { substr $_, 1+rindex $_, '/' } @paths;