#!/bin/perl
use strict; use warnings;

sub newl { print "\n"; print "\n"; }

my @a; my @b; 
my $na; my $Na;
$na = $#a;
$Na = ( 0, 1..$na );
@a = ( /, /home, /var, /tmp, /var/tmp );
for my $i (@Na) { $b[$i] = `ls $a[$i]`; }

for my $i (@Na) {
        my @c1 = split ("\n", $b[$i]);
        my $nc; my @Nc;
        $nc = $#c1;
        @Nc = ( 0, 1..$nc );
        for my $w (@Nc) {
                print "$a[$i]$c1[$w]"; newl; }
        last if $i == 1;
        @c1 = split ("\n", $b[$i]);
        $nc = $#c1;
        @Nc = ( 0, 1..$nc );
        for my $w (@Nc) {
                print "$a[$i]/$c1[$w]"; newl; }
        }