Select Code to Download

  OPEN 51:("FOOBAR":"W")  ELSE  GOTO FAILED
  USE 51:("FOOBAR":"W")
  WRITE "HELLO WORLD"
  USE 0
  CLOSE 51

  O 51:("FOOBAR":"W")  E  G FAILED
  U 51:("FOOBAR":"W") W "HELLO WORLD" U 0 C 51

open HANDLE,'>','FOOBAR' or die;
select HANDLE;
print "HELLO WORLD";
select STDOUT;
close HANDLE;

for my $key (sort keys %hash) {
    print $key,"\n";
}

  SET KEY="" FOR  SET KEY=$ORDER(^HASH(KEY)) QUIT:KEY=""  D
  .WRITE ^HASH(KEY),!

  S KEY="" F  S KEY=$O(^HASH(KEY)) Q:KEY=""  D
  .W ^HASH(KEY),!

my $key='';
while (($key=nextkey(\%hash,$key)) ne '') {
  print $hash{$key},"\n";
}