#!C:\Perl\bin
#use warnings;
#use strict;


my $ArrayRow = "";

splice( my @TestArray );

$ArrayRow = "20130516,530,730\n";
push( @TestArray, $ArrayRow );
$ArrayRow = "20130516,731,1100\n";
push( @TestArray, $ArrayRow );
$ArrayRow = "20130516,1101,1200\n";
push( @TestArray, $ArrayRow );

print "@TestArray";
print "\n\n";
print @TestArray;
print "\n\n";
foreach $ArrayRow( @TestArray ) { print  $ArrayRow; }
print "\n\n";