my %names = (file1 => "tom", file2 => "bob", file3 => "joe");

##</code><code>##

$names{file2} = "sam";

##</code><code>##

for (keys %name){
   print "$_ = $names{$_}\n";
}