Select Code to Download

 %hash = split /X/, 'fooXbar' # added the missing comma ;)

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

sub FORCE_CLEAR { %{$_[0]} = () }