Select Code to Download

my %data = ( "one" , 1, "two",2,"three",3,"four",4,"five",5,"six",6,"s
+even",7,"eight",8,"nine",9);

...
   }

map { print "$_ : $newData{$_}\n";} keys %newData ;

fiveseven : 57
nineeight : 98
twoone : 21
threesix : 36