#!/usr/bin/perl -w

use strict;
use Data::Dumper;

#---- The wrong way

    my @container=();
    my @a=();
    for (my $i=0; $i <=1; $i++){
        @a=();
        $a[$i] = 99;

        push @container, \@a;
    }
    print Dumper(\@container);