for (my $x = 0; $x < $record_count; $x++) 
{
	foreach (@column_names) 
	{
		print $_ . ": " . @$aref[$x] . "\n" unless $found;
	}				
}