#!/usr/bin/perl -w

$a = "name";
$b = 5;

my $c = "name";
my $d = 5;

print ".D(${a}[$b])\n";
print ".D(${c}[$d])\n";