foreach $key ( ($x eq 'key_1') ?  keys %my_hash : exists $my_hash($x) ? $x : () ) {
  do a bunch of stuff
}