#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper; 

my $hashref;
$hashref->{'TED'}='608-555-1234';
$hashref->{'MAX'}='608-555-1234';
$hashref->{'TED & MAX PARTY LINE'}='608-555-1234';
$hashref->{'SAM'}='608-555-5555';
$hashref->{'Ed'}='608-555-0000';
print "original Hash\n";
print Dumper %$hashref;
print "Reverse Hash\n";
my %rhash = reverse %$hashref;
print Dumper %rhash;