Select Code to Download

all { $res[$_ - 1]{end_date} eq $res[$_]{start_date} } 1 .. $#res

map { $res[$_ - 1] }
   grep { $res[$_ - 1]{end_date} ne $res[$_]{start_date} }
      1..$#res