Help for this page
my %names = (file1 => "tom", file2 => "bob", file3 => "joe");
$names{file2} = "sam";
for (keys %name){ print "$_ = $names{$_}\n"; }