Select Code to Download

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

$b{\$a}= $a; 
while ( my ($key, $value) = each %b) { print "$key => $b{$key}\n"; }