Select Code to Download

sub clean_data
{
...
                s/\s$//;
        } @_;
}

foreach my $field ( @fieldnames )
{
...
    clean_data( $value );
    push( @rec, $value );
}