Data into 2d array

use warnings;
#use strict;
use Data::Dumper;

my $file = 'green_scan.txt';
my @data;
my @array;
my $count = 0;
open (FH, $file) or die $!;
while ( <FH> ) {
	chomp($_);
	next if $. < 17;
	@data = <FH>;
	foreach $line (@data) {
		@array[$count++]=[split(/' '/, $line)];
	}
	print $array[5][0];

print "\n";
}
close FH;
exit 0;

#!/usr/bin/perl

use warnings;
use strict;
use Data::Dumper;

my $file = 'green_scan.txt';
my @data;

open my $fh, '<', $file or die "failed to open '$file' $!";

while (my $line = <$fh> ) {
	next if $. < 17;
        chomp $line;

	push @data, [ split ' ', $line ];
}
close $fh;

print Dumper \@data;
exit 0;