my @elements = ( keys %hash );
foreach (@elements){
  if ( $_ eq $elements[-1] ){
    #Do something to last element
  }else{
    #Do something to an item in element
  }
}