#!/usr/bin/perl

use strict;
use warnings;

my %hoa = (
   arraya => [qw( dd1 dd2 dd3 dd4 )],
   arrayb => [qw( gg1 gg2 gg3 gg4 )],
   arrayc => [qw( cc1 cc2 cc3 cc4 )],
);

chomp( my $array_name = <STDIN> );   # e.g. arraya 
chomp( my $to_find    = <STDIN> );   # e.g. dd2

if (  exists( $hoa{$array_name} )
   && grep { $_ eq $to_find } @{$hoa{$array_name}}
) {
   print( @{$hoa{$array_name}}, "\n" );
}