If you don't know Perl, why do you write things without having an idea what they do or having a goal what they should do?

Maybe you want the following?

print Dumper($call);
[download]