Select Code to Download

@array[$start..$end]

#! /usr/bin/perl

...
}

print Dumper \%phrase_table;

$VAR1 = {
          '4' => [
...
                   ]
                 ]
        };