The key $componentName does not exist in %component_path or is assigned an undef. The reason might be you assign the number of subroutine arguments to $componentName: instead of

my $componentName = @_;
[download]

you probably meant

my ($componentName) = @_; # list context
[download]

or

my $componentName = $_[0];
[download]

or even

my $componentName = shift;
[download]