foreach $key (keys %argument)
{
        $argument{$key} =~ s/\\\\/\\/g;
}