use mapcar; my @data = mapcar { "$_[0] is on $_[2] duty at $_[1]" } ( \@name, \@time, \@duty ); print join "\n", @data;