Select Code to Download

foreach my $line(keys %results){
   if ($results{$line} == 1) { print Dump($post) ; last; }
}