Select Code to Download

use strict;
use warnings;
...
  map { [@{$table{$_}}[0..3]] } keys %table;

print Dumper(\@loop);

$VAR1 = {
          'key2' => [
...
            'meenie' => 'Z'
          }
        ];