my $t=1;
my $s=2;
my @var;

$var[$t][$s]=5;