for my $i ( 1 .. 10 ){ 
    for my $j ( 1.. 10 ) { 
        $subs[ $i ][ $j ] = sub{ print 'You called sub_' . $i . '_' . $j; }; 
    } 
};;

$subs[ 3 ][ 5 ]->();;
You called sub_3_5