Shell Programming and Scripting

$ cat test.pl
#!/usr/bin/perl

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

my $i=-1;
my @array;

while(my $line=<DATA>){
        chomp $line;
        $i++ if $line=~/^Space/;
        push @{$array[$i]},$line;
}

print Dumper(\@array);

__DATA__
Space: ABC
Name: def
Age: 22
Type: new
Name: fgh
Age: 34
Type: old
Space: XYZ
Name: pqr
Age: 44
Type: new
$ perl test.pl
$VAR1 = [
          [
            'Space: ABC',
            'Name: def',
            'Age: 22',
            'Type: new',
            'Name: fgh',
            'Age: 34',
            'Type: old'
          ],
          [
            'Space: XYZ',
            'Name: pqr',
            'Age: 44',
            'Type: new'
          ]
        ];

while(my $line=<DATA>){

foreach my $line(@yourarray){