$name = "Ted";
while ( my $line = <DATA> ) {
    chomp $line;
    my ( $symbol, $value ) = split /,/, $line;
    ${$symbol} = $value;
}
print $name, "\n";
__DATA__
name,Frank
__OUTPUT__
Frank