Help for this page

Select Code to Download

Select or download this

my %hash = map{ 
    my $temp = $_; 
    $temp =~ s/a/X/g; 
    $_, $temp 
} @array;