my %dirlist = ();
[...]
my $i = 0;
for my $val (@ret) {
    $dirlist{$i} = $val;
    print $dirlist{$i};
    $i++;
}