while (<FILE>) {
  chomp($_);
  next unless $cur;
  if (/^#/) {
    $cur = $_ =~ s/#//;
    next;
  }
  push (@arrays{$cur}, $_);
};

while (<DATA>)
{
	chomp;

	push @one, $_ if /(#1)/../^$/ and $_ and $_ ne $1;

	push @two, $_ if /(#2)/../^$/ and $_ and $_ ne $1;
}

__END__
#1
a
b
c

#2
d
e
f

my (@one, @two);
my @bind = (undef, \@one, \@two);
my $now;
while (<>) {
    if (/^#(1|2)/) {
        $now = $1;
        next;
    }
    push @{$bind[$now]}, $& if $now && /^\S+/;
}

perl -ne 'chomp && $_ and /^#(\d+)/ ? 1 : push @{$1}, $_' t.txt