#!/usr/bin/perl

use strict;
use warnings; 
use Data::Dumper;


my @data_res = display(\@data);

sub display {

 my @dirs = @_;

 foreach my $i (0 .. $#dirs) {
  print "$dirs->[$i] \n";
 }
 
 #foreach my $i (@dirs) {
  #print "$i\n";
 #}

 $VAR1 = [
          '/dir/pages/books',
          '/dir/pages/books/2',
          '/dir/pages/books/2/77888k.txt',
          '/dir/pages/books/2/uhuhuhkk.txt',
          '/dir/pages/books/2/8877bg.txt',
          '/dir/pages/books/2/uuhu87777.txt',
          '/dir/pages/books/2/L',
          '/dir/pages/books/2/L/88uu8u.txt',
          '/dir/pages/books/2/L/88hhh.txt',
          '/dir/pages/books/2/L/uhuhuh.pdf',
          '/dir/pages/books/2/L/2611566_01_HA_20160819_2264063.txt',
          '/dir/pages/books/7',
          '/dir/pages/books/7/ijij8888.txt',
          '/dir/pages/books/7/555rf.txt',
          '/dir/pages/books/7/88uuhh.txt',
          '/dir/pages/books/7/88889kkk.txt'
        ];