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

my $hashref;
$hashref->{'router'}='192.168.1.1';
$hashref->{'console'}='192.168.1.5';
$hashref->{'NAS1'}='192.168.1.5';
$hashref->{'Printer 1'}='192.168.1.1';
$hashref->{'File Server 1'}='192.168.1.15';
print "original Hash\n";
print Dumper %$hashref;
print "Reverse Hash\n";
my %rhash = reverse %$hashref;
print Dumper %rhash;