fix a hash var

	modified:   aperl.pl
	new file:   dirs.txt
	new file:   files.txt
	deleted:    .aperl.pl.swp