Select Code to Download

use strict;
use warnings;
use diagnostics;

$a = 'name';
$b = 5;
...
my $d = 5;

print "$a\[$b\]" eq "$c\[$d\]" ? "ok\n" : "booger\n";