while(my ($key, $value) = each(%forward)) {
    if ($to =~ $key) {
        $local_address = $key;
        $forward_address = $value;
    }
}