my @list =qw (1 2 3 4 5); print addmodule::ahash(@list),"\n";