use strict;

my ($x, $y, $z);

sub dispSymbols {

    my($hashRef) = shift;
    my(%symbols);
    my(@symbols);

    %symbols = %{$hashRef};
    @symbols = sort(keys(%symbols));

    foreach (@symbols) {
        printf("%-10.10s| %s\n", $_, $symbols{$_});
        }
    }

dispSymbols(\%main::);