use IO::File;
use XML::Writer;

my $output = IO::File->new(">wheretowrite.xml");
my $writer = XML::Writer->new(OUTPUT => $output);

my @device_list = (
                   "node1 port1" ,
                   "node2 port2" ,
                   "node3 port3"
)

foreach $node(@device_list)
{
                @get_data = split ( ' ' , $node );
                        $device_name = @get_data[0];
                        $port_name = @get_data[1];

  $writer->startTag("filter", "name" => "all_events", "sql" => "(where node ="$device_name and port=$port_name") or (where node="device_name and port=$port_name"), "label" => "just-testing", "view" => "Default");
 $writer->endTag( "filter" );
}
# end