perl - need help with 2 arrays to hash or 2d array?

I have 2 arrays:

@array1 outputs the following:

1
1
1
2


@array2 outputs the following
 
A
B
C
D

How do I merge and print these 2 arrays and get the following logic:

A - 1
B - 1
C - 1
D - 2

D does not equal 1!

I basically want to find the best way to link these 2 arrays in that order and output them.

perl -le'
  @a1 = ( 1, 1, 1, 2 );
  @a2 = ( A, B, C, D );
  
  print $a2[$_], " - ", $a1[$_]
    for ( 0 .. @a1 - 1 );
  '

Awesome. Thank you!