#!/usr/bin/perl

foreach my $entry ( keys %main:: )
    {
    print "$entry\n";
    }