#!perl

use strict;
my %hash;
%hash = ("1", "tag", "2", "hallo");
print $hash{"1"};
my %hash2;
%hash2 = reverse %hash;
print $hash{"tag"};