my $last = (keys %hash)[-1];
foreach my $element (keys %$hash) {
   if ($element eq $last) {
       #do this
   } else {
       #do that
   }
}