Select Code to Download

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

$names{file2} = "sam";

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