my %data = map { $_ => [param $_] } qw(datalist1 datalist2 datalist3);