Select Code to Download

!/usr/bin/perl -w
use strict;
...
  [   \%reasons, $switch_hash  ],
  [qw( *reasons   switch_hash )]
);