Select Code to Download

#!/usr/bin/perl
...
my @array = qw ( b bell c cell d dell f fell h hell );
foreach ( @array ) { s/ell/it/g };
print Dumper ( \@array );

$VAR1 = {
          'c' => 'cit',
...
          'hit'
        ];