print prints its arguments, but returns 1 on success. That is what gets assigned to $d. You probably wanted

my $filename = $a . $x . $c;
[download]

or

my $filename = "$a$x$c";
[download]

or even

my $filename = join '.', $a, $x, $c;
[download]

Tweak to suit your needs.