Select Code to Download

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