Select Code to Download

use List::Util qw( shuffle );

...

use Data::Dumper;
print Data::Dumper->Dump([\@data, \@tab], [qw(*data *tab)]);