Select Code to Download

sub rate {
   return 50 if $_[0] eq 'basic';
...
}

$rate = rate($package);

my %rate = (
   basic  => 50,
...
);

$rate = $rate{$package};

{
   # %rate is private to rate().
...
}

$rate = rate($package);