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