my $a = 'b';
sub show {
    my $c = shift;
    print $c . '=' . eval $c; 
}

show('$a');