change this line:

addHost('aklia700',qw(carrot lunch));
[download]

to

addHost('aklia700',[qw(carrot lunch)]);
[download]

have a look at perldoc perlref (what you are wanting is an anonymous array)

-enlil