#!/usr/bin/perl opendir D %{$fileToLoad$i}; opendir D %{$fileToLoad$i};