Select Code to Download

my @arr1 = ('a');

...
  }

}

#!/usr/bin/perl
use warnings;use strict;
...
  );

print "@shopping";