my $file = "/tmp/test.xml";
open (INFILE, "<$file");
my @FiTime = grep {/SentTime/} (<INFILE>);
Print "\n***** @FiTime";