print $dirlist{$i};