Select Code to Download

index   @ar_1   @ar2
0       John    London
...
3       John    Berlin
4       Vivien  Paris
etc...

John   => [London, Berlin],
Mike   => [Paris],
Vivien => [Milan, Paris]

use strict;
use Data::Dump qw/dump/;

...
}

print dump(\%hash);