Select Code to Download

#!/usr/bin/perl
use strict;
...
    ilk => "1",
    son => "2",
    );

#!/usr/bin/perl

...
if ($#array<5){
       print $fruit_color{"banana"},"\n";
       };