Help for this page
#!/usr/bin/perl -w ... print ".D(${a}[$b])\n"; print ".D(${c}[$d])\n";
.D(name[5]) .D([5])