#!/usr/bin/perl
# line 2 script hash.pl
my %hash = (
    foo  => 42,
    bar  => 1e3,
    quux => 0,
);
print "$_ $hash{$_}\n" for sort keys %hash;