my $d;
my $c = 'Hi';