for my $row(@data){
    my($smtp,$user,$server) = @$row;
    # munge $stmp
    next unless $smtp;
    # munge $user and $server
    # recombine them into a string
    # write the string to a file
}