while(my($key, $value) = each(%list)){

	push(@headers, $key);
	push(@values, $value);

}

print "@headers\n";
print "@values\n";