#!/usr/bin/perl -w
my @arr=('a', 'b', 'c');
my @aroa;
push(@aroa, [@arr]);