You can put all of your new lines into an array of parameters like this:

#!/usr/bin/perl

use strict;
use warnings;

use SOAP::Lite +autodispatch =>
    uri => 'http://www.soaplite.com/My/Parameters',
    proxy => 'http://localhost/',
    on_fault => sub { my($soap, $res) = @_;
        die ref $res ? $res->faultdetail : $soap->transport->status, "
+\n";
};

my @parameters = (
    SOAP::Data->name(list_contact => 'ListOfContact'),
    SOAP::Data->name(contact      => 'Contact'),
    SOAP::Data->name(contact_id   => 'ContactID'),
    SOAP::Data->name(contact_lastname => 'LASTNAME')
);

print "Parameters: ", join(' ', map {$_->value} @parameters), "\n";
print "By order: ", byorder(@parameters), "\n";
print "By name: ", byname(@parameters), "\n";
[download]