> perl -e '$size_orange=55; my $fruit = "orange"; my $name_var = "size_$fruit";print $$name_var; print $size,"\n";'
55