Help for this page

Select Code to Download


  1. or download this
    foreach $key (sort(keys %in)) {
    print MAIL "\t", $key, " = \t", $in{$key}, "\n";
    last;
}
close MAIL;
  2. or download this
    my @keys = sort keys %in;
print MAIL "\t", $key[0], " = \t", $in{$key[0]}, "\n";
  3. or download this
    (my $first) = sort keys %in;
print MAIL "\t", $key, " = \t", $in{$key}, "\n";