代碼如下:
#!/bin/perl
use strict; 
use warnings; 

my %movies; 
my $film; 
my %reverse_result; 
my $director; 
my @data; 

%movies = 
( 
  'The Shining'       => 'Kubrick', 
  'Ten Commandments'  => 'DeMille', 
  'Goonies'           => 'Spielberg', 
); 

#輸出哈希的值，輸出的結果為Kubrick 
print $movies{'The Shining'}; 

#同時輸出鍵和值 
foreach $film(keys %movies) 
{ 
   print "$film was directed by $movies{$film}./n"; 
} 

#添加空格 
print "/n"; 

#哈希結構的切換 
%reverse_result=reverse %movies; 
foreach $director(keys %reverse_result) 
{ 
   print "$director directe the $reverse_result{$director}./n";  
}

#添加空格 
print "/n";

#當哈希結構用于列表環境中時，perl會將hash重新變為由關鍵詞和鍵值組成的普通列表 
@data=%movies; 
 print "@data/n"; 

#添加空格 
print"/n"; 

#得到的數組是一個分為奇數為film，偶數為director的數組，或者相反 
#然后我們將數組賦值給hash 
%movies=@data; 
foreach $director(keys %reverse_result) 
{ 
  print "$director directe the $reverse_result{$director}./n";  
}     
print "The result is not change/n";

以下為輸出結果：
    F:/>perl/a.pl 
    KubrickGoonies was directed by Spielberg. 
    The Shining was directed by Kubrick. 
    Ten Commandments was directed by DeMille. 

    DeMille directe the Ten Commandments. 
    Spielberg directe the Goonies. 
    Kubrick directe the The Shining. 

    Goonies Spielberg The Shining Kubrick Ten Commandments DeMille 

    DeMille directe the Ten Commandments. 
    Spielberg directe the Goonies. 
    Kubrick directe the The Shining. 

    F:/>

#----測試哈希key的方法：
if(exists $hash{keyval}) 
{ 
} 
#----刪除關鍵字：
delete hash {keyval};

#---清空哈希：
%hash=（）；