Select Code to Download

sub array {
  return 0 .. 5;
}

my %hash = array();

#!/usr/bin/perl -w
use strict;
...
$"='|';
print "@array\n";
print map { $hash{$_} . ' ' } sort keys %hash;