my @list1= 1..5;
my @list2= <a b c d e>;
for each(@list1, @list2) -> $x, $y {
   say "$x with $y";
   }