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