#!/usr/bin/perl use strict; use warning my @ldapFields = ("unvLocalPhone", "unvLocalAddress", ); my %field_hash = (unvLocalPhone => "Phone", unvLocalAddress => "Address", ); foreach my $field (@ldapFields) { if (exists $field_hash{$field}) { $field = $field_hash{$field}; } }