#!C:\Perl\bin use diagnostics; use strict; splice( my @Records ); splice( my @RecordRowFields ); splice( my @RecCheck ); my $RecordRow = ""; my $OneElement = ""; push( @Records, join ',', ( "AAA", 20130610, 730, 1015, "\n" ) ); push( @Records, join ',', ( "BBB", 20130610, 1015, 1200, "\n" ) ); push( @Records, join ',', ( "CCC", 20130610, 1230, 1400, "\n" ) ); push( @Records, join ',', ( "DDD", 20130610, 1415, 1530, "\n" ) ); #$OneElement = $Records[ 1 ][ 2 ]; foreach $RecordRow( @Records ) { @RecordRowFields = split /,/, $RecordRow; push( @RecCheck, join ',', @RecordRowFields ); } print "Array Records\n"; print @Records; print "\n\n"; print "Array RecCheck\n"; print @RecCheck; print "\n\n"; print "$Records[ 1 ][ 3 ]\n"; print "$RecCheck[ 1 ][ 3 ]\n";