Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...

__DATA__
F1=D1, F2 = D2, F3= D3, F4 =D4,  F5  =  D5

$VAR1 = {
          'F2' => 'D2',
...
          'F5' => 'D5',
          'F1' => 'D1'
        };