I would also strongly recommend against ever using switches. Most often a better construct is available, such as a lookup table for the above example:

my %time_captions = (
    30days    => "Past 30 Days",
    3mons     => "Past 3 Months";
    1yr       => "Past 1 Year",
    all       => "All Data",
};

$caption .= $time_captions{$time};
[download]

- Miller