Select Code to Download

#!/usr/bin/perl
use strict;
...
__DATA__
1 2 3 4
5 6 7 8

$VAR1 = {
  '1' => [
...
    '6 7 8'
  ]
};