#!/usr/bin/perl
  
%hash = ('Ten' => 10,
         'Eleven' => 11,
         'Twelve' => 12,
         'Thirteen' => 13);
  
@values = values( %hash );
print("Values are  ", join("-", @values), "\n");
  
@keys = keys( %hash );
print("Keys are ", join("-", @keys), "\n");

Values are  11-12-13-10
Keys are Eleven-Twelve-Thirteen-Ten

#!/usr/bin/perl
  
%hash = ('Geek' => 1,
         'For' => 2,
         'Geeks' => 3);
  
@values = values( %hash );
print("Values are  ", join("-", @values), "\n");
  
@keys = keys( %hash );
print("Keys are ", join("-", @keys), "\n");

Values are  3-2-1
Keys are Geeks-For-Geek