do('filename');
%hashname = %$VAR1;

print "$hashname{name} \n\n";

###the above works fine
###the code below only prints the \n's
$filename = "filename";
do($filename);
%hashname = %$VAR1;

print "$hashname{name} \n\n";