foreach my $line (@records)
{
	(my $colnumber1, @rest) = split(' ',$line);
	printf "%-8s @rest\n", $colnumber1;
}