for (@Subscription) {
	Display_Subs(\%$_);
}

##</code><code>##

for (@Subscription) {
	Display_Subs($_);
}

##</code><code>##

sub List_Subscriptions {
	my (@Sub_ARRAY) = @{$_[0]};
#	my (@Sub_ARRAY) = @_;

	print "The Current Subscription List:\n\n";
	for (@Sub_ARRAY) { print " \t$_ \n"; }
	print "\n\n";
}

##</code><code>##

sub List_Subscriptions {
	my ($Sub_ARRAY) = @_;
#	my (@Sub_ARRAY) = @_;

	print "The Current Subscription List:\n\n";
	for (@$Sub_ARRAY) { print " \t$_ \n"; }
	print "\n\n";
}