$ perl -wl
use String::Escape qw( string2hash hash2string );
use Data::Dumper;
my $string = hash2string( ( foo => 1, bar => 2, tze => 3 ) );
print $string;
my %hash = string2hash( $string );
print Dumper \%hash;
__END__
foo=1 bar=2 tze=3
$VAR1 = {
          'bar' => '2',
          'foo' => '1',
          'tze' => '3'
        };