#!C:/Perl/bin/perl
#
#   dbug.pl
#

@currTime = localtime(time);

dBug_showArray(@currTime);

exit;



sub dBug_showArray {
	print "\n\n\Value of array '" . WHATISTHISVARIABLE . "' is:\n";
	my (@lclarray) = @_;
	my $counter = 0;

	foreach (@lclarray) {
		print $counter . " = '" . $_ . "'\n";
		$counter += 1;
	}

	print "\nPress [Enter] to continue ";
	my $dummy_var = <STDIN>;
	print "\n";
	return;
}