TT#17650 Fix experimental features in bin/ulog_parser.pl

Fixes:

| given is experimental at bin/ulog_parser.pl line 151.
| when is experimental at bin/ulog_parser.pl line 153.
| when is experimental at bin/ulog_parser.pl line 154.
| push on reference is experimental at bin/ulog_parser.pl line 175.
| push on reference is experimental at bin/ulog_parser.pl line 215.

Change-Id: I2ac8dfa23c37e375e1d85f01dba666c5329ec3b4

bin/ulog_parser.pl

@@ -148,10 +148,10 @@ sub next_line
   return ($line ne '');
 }
 
-given($#ARGV)
-{
-  when (1) { $filename = $ARGV[0]; $output_dir = $ARGV[1]; }
-  when (0) { $filename = $ARGV[0]; }
+if (@ARGV == 2) {
+  $filename = $ARGV[0]; $output_dir = $ARGV[1];
+} elsif (@ARGV == 1) {
+  $filename = $ARGV[0];
 }
 $filename = abs_path($filename);
 $output_dir = abs_path($output_dir);
@@ -172,7 +172,7 @@ do
         if($data->{'callid'} eq $callid)
         {
           $msg =~ s/#015#012/\n/g;
-          push($data->{'sip_out'}, $msg);
+          push @{$data->{'sip_out'}}, $msg;
         }
         else
         {
@@ -212,7 +212,7 @@ do
       if(($json) = ($line =~ m/.+dbg_dump_json\(\): (\{.*\})$/))
       {
         $pjson = from_json($json);
-        push($data->{'flow'}, { $mode."|".$route => $pjson });
+        push @{$data->{'flow'}}, { $mode."|".$route => $pjson };
         if ($route eq "MAIN" && $mode eq "start")
         {
           ($msg) = $method;