my @list1 = qw/a b c d/;
my @list2 = qw/p q r s/;
for (0 .. $#list1) {
  say "$list1[$_] $list2[$_]";
}