Select Code to Download

#!/usr/bin/perl
use strict;
...
          'a1' => 'b1'
        };
b5

my %hash = map { split( / /, $_, 2 ) } @array;