Town         Surname       Firstname

Basel        Chaplin       Charlie          
Manica       Estevez       Emilio Santa   
Montmarte    Sarte         Jean Paul  
Montmarte    Rodin         Paul 
Amsterdam    Rikard        Frank           

##</code><code>##

    my @elems = $key;
    my $client = $client->[$elems[1]-1];

##</code><code>##

use Data::Dumper;
my @a = (2, 5, 7);
print Dumper \@a;

##</code><code>##

$VAR1 = [
          2,
          5,
          7
        ];