Select Code to Download

my %names;
open (FILE, "data") or die "Cant open data: $!\n";
...
   $names{"$tempname"} += $tempnum;
}
close FILE;