Das Perlskript tut's nicht mehr? Nimmt keine Parameter mehr in get_data()?
Ersetze
split(/=/, $_);
durch
@dtokens = split(/=/, $_);
@_=@dtokens;