$s =~ s/\s+/=/g;
    my @v = split( /[\[\],]/, $s ); #create an array from string $s
# assign hash value pairs and insert '=' between them to create phoneb
+ook 
    my %hash = map { split( /=/, $_, $x + 1 ) } @v; 
entry


##</code><code>##

my %reverse_phonebook = (
    123 => 'jack',
    456 => 'jill',
    ...
);