Select Code to Download

#! /usr/bin/perl

...
}

print(Dumper(\@matrix));

my @matrix = (
   [ 1, 2, 3 ],
   [ 4, 5, 6 ],
   [ 7, 8, 9 ],
);