Select Code to Download

#! /usr/bin/perl
use strict;
...
b1,     bb1
b2,     bb2
b3

$VAR1 = {
          '<A1>' => [
...
                      'bb2'
                    ]
        };