for $key(sort keys %sort_dates){
  print $key,"-rel->",$sort_dates{$key},"\n";
}

my ($key) = (sort keys %sorted_dates)[-1];
print $sorted_dates{$key};