@array1 = ("cat","rat","lion"); @array2 = ("dog","tiger"); $variable = "tiger"; %hash= ("tiger" => 'peacock', "2" => 'tiger'); map{print $_."\n" if($_ eq 'tiger')}(@array1,@array2,$variable,%hash); #### @array1 = ("cat","rat","lion"); @array2 = ("dog","tiger"); $variable = "horse"; %hash= ("1" => 'peacock', "2" => 'duck') ; map{print $_ if($_ eq 'tiger')}(@array1,@array2,$variable,%hash); #### @array1 = ("cat","rat","lion"); @array2 = ("dog","tiger"); $variable = "tiger"; %hash= ("1" => 'peacock', "2" => 'tiger'); map{print $_."\n" if($_ eq 'tiger')}(@array1,@array2,$variable,%hash);