#!/usr/bin/perl -w
use strict;
use warnings;
use Storable;

my %info;
my $cmdData = retrieve('file.pm')

foreach my $cmd ( sort { $cmdData->{$a}{pkt_target} cmp $cmdData->{$b}{pkt_target} || $a cmp $b } keys %{$cmdData}) {
	print "$cmd   ";

	if ($cmdData->{$cmd}{subfields} eq "") {
		print "undef\n";
	} else {
		print "defined\n";
	}
};