my $left= keys %$hash;
foreach my $element (  keys %$hash  ) {
   if(  0 < --$left  ) {
       # not last
   } else {
       # last
   }
}
[download]

                - tye