#!/usr/bin/perl

use strict;
use warnings;

my $file = '/path/to/file';

open FH, $file;

my ( @arr, @AoA, $aref );
while (<FH>) {
    push @AoA, [split];
    for $aref (@AoA) {
        print "[ @$aref ],\n";
    }
}
close FH;