in reply to changing the background of a Tk Label
You're giving the -background attribute a reference to a scalar. You just want the scalar value.
my $test = $mw->Label( ..., -background => $bg_colour, ); [download]