#!/usr/bin/perl -w

my @array = qw(1 hello 2 hello 3 hellome 4 hellothere);
my %hash = @array;

foreach( values %hash ) { s/hello/hi/g; }

print +("$_ = $hash{$_}\n") for (sort keys %hash);


##</code><code>##

1 = hi
2 = hi
3 = hime
4 = hithere