Select Code to Download

#!/usr/bin/perl
use strict;
...
          'Apple' => '47.25',
          'orange' => '22.5'
        };

#!/usr/bin/perl
use strict;
...
                       '54'
                     ]
        };