Select Code to Download

my %fruit;
open my $fh, "<", "fruit.csv") or die;
...
    my $thenumber = $fruit{$thefruitsname} or die;
    ...
    }