Select Code to Download

my $result;
foreach my $v (keys %hash) {
if (exists $hash{$v}{'later'}) {
  $result= $v;
}

print join(' ',keys %hash);