#/!usr/bin/perl

use strict;

my $this = "key1";
my $that = "in1";

$hashname{$this} = $that;  # $hashname{'key1'} is 'in1'

$this = "key2";
$that = "in2";

$hashname{$this} = $that;  # $hashname{'key2'} is 'in2'
                           # $hashname{'key1'} is still 'in1'

# eof