foreach my $message ( @messages ) {
   print "$hash{$message}<br />\n";
}